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Première partie 


INITIATION 
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Premier contact 


Lorsque vous mettez l'ORIC sous tension, celui-ci affiche : 











ESTENDEL BASIC 1,1 
5 TANGERIHE 


Srésl EYTES FREE 











Oric 
signale ainsi: 
qu'il est "prêt! à 
exécuter vos 

‘instructions! 








Puisque l'ordinateur est " prêt ! vous pouvez sans plus attendre lui faire exé- 
cuter les instructions du langage BASIC. 


Vous transmettez ces instructions directement à partir du clavier. 









<RETURN> 
pour valider 
une ligne 
frappée 






















< CTRL C> 

pour stopper le 

déroulement d'un 
programme 


pour obtenir les 
caractères du haut 
des touches à 

doubles carac- 


espace 










Par exemple, appuyez sur les lettres 


(n N suivi de A 


C'est la première instruction que vous donnez à l'ordinateur. 


Afin que cette instruction soit VALIDEE vous devez appuyer sur la touche 
RETURN . L'instruction est alors EXECUTEE : la couleur d'écriture n'est 


plus noire mais bleu foncé. 










“f symbolise 
la touche 
RETURN 


pour écrire 
en bleu 


k est le numéro de code de la couleur bleu foncé. 


Si maintenant vous frappez l'instruction PAPER 1 suivie naturellement de 
€ RETURND , c'est la couleur de fond de l'écran qui change, elle devient 
rouge. 1 est le numéro de code de la couleur rouge. 


Rappel aux non anglicistes ! 
INK signifie ENCRE 
PAPER signifie PAPIER. 


Les huit couleurs disponibles sont repérées par les numéros suivants : 


ÿ —_n noir 4 ___wblieu foncé 
1 rouge 5 violet 
2—% vert 6____ bleu clair 
3 —_ jaune 7——_%blanc 


Cela étant, supposons que vous ayez commis une faute de frappe en tapant votre 
instruction. 
Tant que vous n'avez pas appuyé sur la touche (RETURN) vous pouvez corriger. 
En effet, en appuyant sur la touche [DEL] vous " gommez " le dernier carac- 
tère frappé. 











appuyer sur DEU 
pour ‘gommer' le dernier 
caractère 
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Si vous souhaitez effacer entièrement l'écran, frappez l'instruction CLS 


ZAP - PING - SHOOT - EXPLODE 


Ce sont les quatre sons " préprogrammés " dont dispose l'ORIC. 
Pour les identifier, frappez à tour de rôle : 


EXPLODE 

_ 
ZAP 
F 


FIHG 
V4 


SHOT 
F 


et tendez l'oreille. 
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Basse résolution 


LORES 0 
PLOT colonne, ligne, couleur 


Pour présenter les premières notions de programmation nous utiliserons les pos- 
sibilités graphiques de l'ORIC. 


MODE DIRECT, VARIABLE, MODE PROGRAMME et BOUCLE FOR constituent 
le b a ba de la programmation. 


La ‘ BASSE RESOLUTION " permet d'afficher à l'écran des " pavés " de cou- 
leur et c'est ce que nous allons faire. 


Commençons donc par passer en mode " basse résolution " en frappant : LORES #. 


MODE DIRECT 







PLOT 20, 15, 17 
affiche un 
pavé rouge 












L'écran comprend 
24 lignes et 
#0 colonnes 








Pour afficher un " pavé !" rouge dans la colonne 20 et à la ligne 15, il faut 


écrire : 





42 







! ra 
Pavé rouge 


Bien entendu, il est possible de faire varier la couleur du pavé; ainsi en frappant 
l'instruction PLOT 20, 15, 18 on obtient un pavé vert. 


Comme vous l'aurez remarqué, les couleurs sont repérées par des numéros dif- 
férents de ceux utilisés avec INK et PAPER : 


16 ____,noir 20 ___ bleu foncé 
17 rouge 21 violet 
18 ___ vert 22___%bleu clair 
19___ jaune 23 blanc 


NOTION DE VARIABLE 


Pour introduire cette notion, nous dessinons comme ci-dessus le pavé rouge en 
ligne 15 et colonne 20, mais cette fois en utilisant des VARIABLES. 


Pour ce faire nous frappons C = 20, c'est-à-dire que nous rangeons dans une 
case"! appelée C comme colonne, la valeur 20. 

Ensuite, en frappant L = 15, nous rangeons dans une autre ‘'case!' (la case L 
pour ligne) la valeur 15. 


Visualisons ces ''cases'"' variables : 


eo 7 C=2f range la L=15 range la 


valeur 2f dans valeur 15 dans 
la case C. la case L. 


Maintenant, si vous frappez PLOT C, L, 17 77 ue va-t-il se passer ? 


L'ordinateur va chercher les valeurs de C et de L dans leurs "'cases'' respectives 
et traduire l'instruction PLOT C, L, 17 par PLOT 20, 15, 17. 
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Pour passer en 
tbasse résolution" 





variables 


e || est bien sûr possible de donner une nouvelle valeur à la variable L. Si nous 
nous lui affectons la valeur 22 nous obtenons un second pavé dans la même 
colonne (puisque nous n'avons pas modifié l'ancienne valeur de C) mais sur la 
ligne 22. 















nouveau 
pavé défini par 
les variables 
C=2# et 
L = 22 







e Ainsi, à chaque fois que nous le souhaitons, nous pouvons faire varier la valeur 
affectée à une variable. 
L'ordinateur oublie" l'ancienne valeur et la remplace dans la case par la 
nouvelle valeur. 


= 7 





nouvelle valeur 





ancienne valeur 





Tant que nous n'affectons pas de nouvelle valeur à une variable, celle-ci conserve 
la dernière valeur notée dans la case" variable. 
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ancienne 
valeur 


ancienne 
valeur 
conservée 





REMARQUES 

e Seules les deux premières lettres du nom de la variable sont significatives. 
Aussi entre " ligne " et " lig " l'ordinateur ne fait pas la différence et les 
considère comme une seule et même variable. 


e Les noms de variable comportant un mot clé du BASIC ne sont pas acceptés. 









Par exemple : COLON 
COIFFE 





sont des mots clés 
du Basic. 


NOTION DE PROGRAMME 


Jusqu'à présent les instructions BASIC ont été exécutées en MODE DIRECT par 
l'ordinateur, c'est-à-dire que dès que nous avons frappé une instruction (et que 
nous l'avons validée par RETURND ), celle-ci a été exécutée IMMEDIATE- 

MENT. Nous avons pu connaître immédiatement l'effet de cette instruction. 


Ceci est important, et vous constaterez que pour connaître l'effet d'une instruc- 
tion ou lors de la mise au point d'un programme il est plus facile et plus 
rapide de recourir au mode " immédiat ". 


Nous allons maintenant placer devant les instructions un NUMERO DE LIGNE. 
L'ensemble de ces instructions constitue un PROGRAMME. 








N'omettez pas de 
valider chaque 

ligne de programme 
par. 


4 





















L=15 
PLOT C:L.17 
PLOT C,L+£,17 





Chaque instruction 
est repérée par un 
numéro de ligne. 


nn 





Tin bin 





La 
ist 







Pas de résultat ! 


Que se passe-t-il ? 


Nous n'avons pas omis d'appuyer sur RETURN) et pourtant nos instructions ne 
produisent aucun effet, nous n'obtenons pas le résultat escompté, deux pavés 
rouges. 


N'ayez crainte, ceci est parfaitement normal. 
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Pour obtenir un résultat en " mode programme , il faut demander l'exécution 


F 


du programme par l'ordre RUN 











en 
Œ 


Dit 
qu 
si 
= 


END LAE Le 
= 
= 
= 
= 
= 






NE 






pour que le 
programme soit 
exécuté 


REMARQUES 
e Les instructions sont exécutées par BASIC une à une dans l'ordre de numéro- 
tation. 


e Les lignes n'ont pas à être entrées nécessairement dans l'ordre de la numéro- 
tation. 


e La numérotation des lignes se fait généralement de 19 en 19 pour permettre 
l'insertion de nouvelles lignes. 


e Après l'exécution du programme les variables ont conservé leurs valeurs. Si 
vous frappez en MODE DIRECT : 
PLOT C ,L, 19 


un pavé jaune est affiché en colonne 2# et en ligne 15. 


Si vous frappez CLS, (en mode direct) l'écran s'efface. Votre programme n'est 
pas perdu pour cela” Pour vous en convaincre deux démonstrations sont possibles : 


Frappez RUN de nouveau, le programme est alors exécuté une 


seconde fois. F 


Frappez l'ordre LIST , le programme s'affiche à l'écran. 


. Vous constatez alors que : 


Maintenant frappez la commande NES , puis AUN+ 


e l'écran ne s'est pas effacé, 


e le programme n'est pas à nouveau exécuté, il est "perdu". 
cLS NEW h'efface 
D LT FA pas 
12 
efface l'écran garde le programme efface le programme F'écran 
en mémoire en mémoire 
REMARQUE 


e La commande LIST seule provoque l'affichage de tout le programme. 


LIST 10 liste la ligne 19 seulement. 
LIST 10-30 liste les lignes entre 19 et 39. 


© Pour effacer une ligne, frapper le numéro puis <RETURN > 
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BOUCLE FOR  …  NEXT 


Pour afficher 4 pavés verts, en ligne 29, nous pouvons écrire : 


19 CLS 
29 LORES9 
39 PLOT 29,24,18 
4ÿ PLOT 21,24,18 
Sû PLOT à 
64 PLOT 2 


















définit 
la couleur 


verte 







C varie de 
29 à 23 







est constante 


Vous remarquez que les 4 instructions PLOT, lignes 39-49, 59 et 69 ne diffèrent 
que par leurs valeurs du numéro de colonne (20, 21, 22, 23). 


Nous pouvons simplifier l'écriture de ce programme en utilisant une boucle FOR. 
En effet, la boucle FOR va nous permettre d'éxécuter plusieurs fois la même 
instruction, ici l'instruction PLOT, en faisant varier la valeur du numéro de 


colonne. 


Voici comment s'écrit le programme ainsi simplifié : 



















Iraduction : 
39 POUR C = 29 JUSQU'A 23 
4 PLOT C, 2f, 18 

Sf AUGMENTE C ET RETOURNE 
EN 4ÿ 








CLS 
1 LORESS 
FOR C=24 TO à 


UE 
5 pe 





48 :PLOT C, 20,18 
BOUCLE Ÿs@ HEXT 


















PLOT 23, 20, 18 






PLOT 20, 20, 18 PLOT 21, 20, 18 PLOT 22, 20, 18 





Détaillons la façon dont se déroule le programme : 


L'instruction 39 FOR C = 29 TO 23 affecte à la variable C la valeur 20. 


e L'instruction 49 PLOT C, 20, 18 est exécutée avec la première valeur, la 
valeur " début " soit C = 20. Elle est donc équivalente à PLOT 29, 29, 18. 


e  L'instruction 59 NEXT C augmente de 1 la valeur de C et provoque un 
branchement à l'instruction après FOR qui se trouve ainsi exécutée pour 
la seconde fois avec la valeur C = 21. Cette fois l'instruction 49 PLOT C, 


20, 18 est donc équivalente à PLOT 21, 29, 18. 


Les cahiers du BASIC sur ORIC / 17 


Dans le cas présent, l'instruction 49 PLOT C, 29, 18 est exécutée 4 fois, pour 
Ce 20: Ce 21; Cie 02 /el Ce 22: 


Lorsque C prend la valeur indiquée après TO dans l'instruction FOR, la valeur 
“fin "“ (soit 23) la boucle s'arrête. 


Ainsi, avec le schéma : 
FOR variable = valeur " début " TO valeur " fin " 


instruction(s) 
NEXT variable 


nous avons une " boucle " qui permet d'exécuter plusieurs fois une même ins- 
truction en ne l'écrivant qu'une seule fois. 


C'est pourquoi la boucle FOR est très puissante. 
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EXEMPLES 


LE MUR 


Alors que dans le programme précédent nous avons tracé une droite horizontale 
en faisant varier C, nous reprenons ici le même programme mais en faisant 
varier L au lieu de C. Nous obtenons donc une droite verticale. 


14 CLS 













valeur début 
SH FOR Lels 
HA: PLOT SE. 
SA MEAT L 


Colonne 30 
[ 





REMARQUE 


e Nous avons placé le signe " : " devant l'instruction 49 pour mieux faire 
apparaître la boucle FOR … NEXT. 


L'ESCALIER 
Dans le programme ci-dessous nous faisons varier simultanément C et L en leur 


affectant une même valeur | qui va prendre successivement les valeurs 1, 2, 3... 


19. 







1 TO 16 







:FLOT C,L:18 
HENT I 
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LE PAVE QUI TOMBE 


Pour représenter un pavé qui tombe depuis le haut de l'écran sur un plan hori- 
zontal (ligne 24) nous le dessinons dans sa première position, c'est-à-dire en 
colonne 5 et ligne 1, puis nous l'effaçons pour le faire apparaître dans la seconde 
position, colonne 5 et ligne 2. Nous déplaçons ainsi le pavé jusqu'au moment où 


L'= 28.4ÿre position —————— > colonne 5 





ligne 1 


ligne 24 


Pour insérer des commentaires 
à l'intérieur du programme 




























18 LORESH 

BA REF eee DIESE TH ASE ROUGE 

36 FOR Cell TO 14 

4g :FLOT Lgd4,1F 

54 C 

SE CHUTE 

FE 4 à 

89 :FLOT %L:1# :REM PAVE VERT 

34 :HAIT 5 :RENM ATTENTE S-1864 © 

184 :FPLOT SL, 16 :RENM EFFACEMENT 

114 HET L pour dessiner le plan 
115 : en ligne 24 
128 FLOT 5,L,18 PEAU 

134 EXFLODE de fond 

148 WAIT 34 







les : servent à 
maintenir le 

décalage des boucles 
FOR 





Pour effacer le pavé nous en dessinons un autre par dessus dans la même couleur 
que le fond de l'écran (ligne 100). 


Pour avoir le temps de visualiser l'apparition puis la disparition du pavé, nous 
insérons une pause, WAIT 5 (ligne 99). 


Outre l'utilisation de la méthode par recouvrement de couleurs pour simuler le 
déplacement, ce programme nous confronte à 2 nouveautés : 


e La (pseudo) instruction REM 
e L'instruction WAIT 


REM (REMarque) permet d'insérer des commentaires à l'intérieur même du 
programme, ce qui en facilite la compréhension. Tout ce qui suit REM est 
ignoré par l'ordinateur ; c'est pourquoi nous parlons de pseudo instruction, les 
lignes de REM n'étant pas exécutées. 


WAIT temps suspend l'exécution du programme pendant le temps spécifié (en 
1/100ème de seconde). 
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Haute résolution 


HIRES 

CURSET colonne, ligne, type couleur 
DRAW longueur, hauteur, type couleur 
CIRCLE rayon, couleur 

FILL nombre de lignes, longueur, couleur 
POINT colonne, ligne 


En haute résolution, l'écran est divisé en 240 colonnes et 200 lignes. En bas de 
l'écran, quatre lignes sont réservées pour le texte. 


Le passage en haute résolution se fait par l'instruction HIRES. Pour revenir en 
mode ‘' texte !""_ il faut utiliser l'instruction TEXT. 


k lignes pour 
le texte 





CURSET colonne, ligne, type couleur 


Pour allumer un point dans la colonne 199 et à la ligne 59 nous tapons en mode 
direct l'instruction : 


CUREET 166,564, 


e Le type couleur spécifié sera la plupart du temps égal à 1. 


REMARQUE 











HIFES 
CURSÉTA1G, SE. 
N 


TETE 
en mode 
direct 

REMARQUE 

e HIRES provoque le passage en haute résolution et disparaît de l'écran. 


Nous obtenons le même résultat en mode programme : 











pour demander l'exécution 
du programme 







pour revenir en 
mode ‘texte! 






DRAW longueur, hauteur, type couleur 


Cette instruction dessine une droite à partir du point où se situe le curseur. 
Quelle que soit la position du curseur sur l'écran, on considère qu'il se situe 
au point #Ÿ. Ainsi, " longueur " et " hauteur " représente des déplacements 
relatifs par rapport à la position de départ. 


14 HIFES 
4 CRAM 48,44,1 


ELIH 
3 
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Pour tracer une droite à partir du point 100, 100, il faut tout d'abord amener 
le curseur à cette position par l'instruction CURSET 199, 199, 1. 


14 HIR 
24 CURSET 198,19, 1 
24 CRAN 4,48, 1 






ELIH 
F 





REMARQUE 
Mais où sont passées les couleurs ? 


Pour " colorier " notre droite nous utilisons l'instruction INK n° couleur et 
l'instruction PAPER n° couleur pour modifier la couleur du " papier ". 









droite rouge 
sur papier jaune 









14 HIRES 

15 IHEL:FAPFERS 
ES CURSET 144, 
SE CEA 4, 46,1 










nous utilisons 
un n° de ligne intermédiaire 
pour ajouter une ligne au 
programme initial 
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EXEMPLES 


Voici trois exemples de dessin que vous pouvez réaliser avec les instructions 


CURSET et DRAW. 


CARRE 


18 HIRES 


24 CURSET 144,56, 1 
54 ORAN 56,6, 1 

48 DRAU 56, 1 

SA CRAU -58, 6,1 

68 DRAU 4, SG, 1 








on utilise des 
valeurs négatives pour 
retourner en 
arrière 







(frapper TEXT 
en mode text 


TRIANGLE 


pour revenir 


14 HIRES 

15 : 

£@ CURSET 146,56, 1 
36 DEAN 56,6, 1 

4G DRAM -25,44,1 
26 CRAN -25,-414, 1 









199 ORAN 59,9,1 






54 






DRAM 59,4,1 


DRAW -59,9,1 





DRAW 59,9,1 


DRAW -25,9,1 
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RECTANGLE PLEIN 


En se servant d'une boucle FOR, nous dessinons 39 droites qui forment un rec- 
tangle plein. 


199 


14 HIRES 159 
15 : 

28 FÜR H=1 TO 34 

39 :CURSET 198, 
48 :DRAU 24,4,1 
SG NEXT H 





REMARQUES 


e Bien entendu, ces trois dessins peuvent être réalisés en mode direct. 


e Vous pouvez également les " colorier “ à votre guise. 


CIRCLE rayon, type couleur 


Cette instruction dessine un cercle. || faut d'abord positionner le centre du 
cercle avec CURSET. 


pour positionner le 184 
centre du cercle 





14 HIFES 
24 CURSET 1 


54 CIRCLE S@ 1 19 


rayon = 50 
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EXEMPLES 


CERCLE PLEIN 


Grâce à une boucle FOR, nous dessinons 30 cercles concentriques qui forment un 
cercle plein. 


19 HIFES 

24 CURSET 164,144, 1 
GA FOR K=1 TO 34% 
44 :CIRCLE F1 

54 HEXT K 





En ajoutant les instructions suivantes (79 à 190), nous faisons varier la couleur 
du cercle. 


Fg FÜR Esi TO F 










84 :IHÉ E 
34 :HAIT 294 pause de 2 secondes 
144 HMEXT E (200X1/100e seconde) 





L'instruction 89 détermine la couleur d'écriture : 
1 = rouge, 2 = vert, 3 = jaune, etc. 


L'instruction 99 provoque un temps d'attente de deux secondes avant la pour- 
suite du programme. 


Bien entendu, vous pouvez remplacer l'instruction INK E par PAPER E. Dans 
ce cas c'est la couleur de papier qui varie. 
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ANNEAU 


En faisant varier la variable R de 29 à 39 par exemple, nous obtenons un anneau. 


109 


14 HIRES 

24 CURSET 144,164, 1 
36 FOR Rs£g TO 34 
44 :CIRCLE K,1 

54 HEXT F 


couleur 
de papier 





POUR EFFACER UNE PARTIE DE DESSIN 

Nous en dessinons un autre avec la couleur du papier. Ainsi, le dessin ‘représenté 
ci-dessous est réalisé en deux temps : 

Premièrement, nous dessinons un grand rectangle plein ( première boucle FOR). 


Deuxièmement, nous dessinons à l'intérieur de celui-ci un petit rectangle avec 
la couleur du papier (deuxième boucle FOR). 


En fait nous procédons par récouvrement. 


1 = couleur d'encre 


XXI 

XEOERSOGS 

KoeSq 

1m KR 

: AR 
XXE RIUNS 
XIE SEE 

SOISSONS 


18 HIRES 

24 He 190: YU 1L 
39 : 

4ÿ FÜR H=1 TO 36 
S& :CURSET KE, YE+H, 1 
5g :DRAU 39,04, 1 

78 HEXT H 

80 : 

194 FOR H=1 TO 19 
118 :CURSET XO+10, Y@+10+H, 1 
124 :DRAN 19,0,4 
138 MEXT H 









# = couleur du papier 


FILL nombre de lignes, 1, couleur 


L'instruction FILL permet de colorier des parties d'écran (en haute résolution). 
" nombre de lignes " indique le nombre de lignes à colorier. 

“1 ",le deuxième chiffre, indique dans certains cas la longueur des lignes. Sur 
l'exemple ci-dessous, toute la ligne est coloriée. 

" couleur " est comprise entre 16 et 23. 


16% noir 
17% rouge 
18% jaune 
19 vert 


20 __ bleu 
21 violet 
22% bleu clair 
23 —___ blanc 


Pour dessiner un drapeau " bleu, blanc, rouge ", nous écrivons : 


14 HIRES 

£2@ FILL 54.1,24 
39 FILL S54.1:23 
48 FILL 54,1,17 


: REM 
: REM 
: REM 







BLEUES 
ELANCHES 
ROUGES 


94 LIGNES 

24 LIGNES 

24 LIGNES 
toute la longueur 
de l'écran 


Pour représenter le drapeau en colonne 199 et ligne 29, nous positionnons le 


curseur à l'aide de l'instruction CURSET 199, 39, 1. 


16 
15 
24 FILL 


HIRES 


Sa, 1,20 
59, 1,25 


34 FILL LS 
43 FILL 54,1,17 


POINT (colonne, ligne) 


CURSET 146,26, 


1 

: REM 
:REM 
: REM 


199 


2f 





24 LIGNES 
28 LIGHES 
pli 


LIGHES 


ELEUES 
ELAHCHES 
FQUGES 


A 


L'instruction. POINT, teste en haute résolution, si un point est allumé ou éteint. 
Un point éteint donne une valeur nulle. Un point allumé donne une valeur égale 


à -1. 


18 
as) 
34 
4 


HIRES 


HAIT 564 


EUH 
+1 


Lu*] 


CURSET 166,164, 1 
FRIHT FOIHTÉ 196, 1885, POINTE 141.184 


PRINT 


PRINT VARIABLE 
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PRINT variable 
PRINT; 

PRINT 

PRINT SPC 
LPRINT 


L'instruction PRINT variable permet d'afficher à l'écran les valeurs des variables. 
Pour l'illustrer, nous affichons le résultat de l'addition de deux nombres À et B. 


18 
ET 
si 
4 


EUH 
1 


B=15 
SOMMS=A+E 
PRINT SOMME 







PRINT variable 


Vous le constatez, le résultat affiché n'est pas très explicite. Pour le rendre 
plus clair, nous ajoutons le message " somme de A et B ". 










FLIH 


message pour 
expliquer le 
résultat 


49 PRINT SOMME DCE À ET E: 


SOMME LE À ET E, 





les guillemets 
encadrent le 
message 







"3 SOMME 


valeur de la 
variable ‘SOMME! 
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REMARQUE 


Les guillemets qui encadrent le message préviennent l'ordinateur qu'il doit 
SEULEMENT reproduire ce dernier. Un message est parfaitement arbitraire. 


PRINT ; 


En empêchant le saut de ligne, l'instruction PRINT ; permet d'afficher sur une 
même ligne les messages énoncés dans plusieurs instructions. 


14 FRIMT "DEEUT"; 
£ÿ FRINT "SUITE" 







il n'y a pas eu de 
saut de ligne 







FLUH 
CDEBUTSUITE 


PRINT 


L'instruction PRINT seule provoque un saut de ligne. 


19 PRINT "CEEUT"; 
E8 FEIMT 
39 PRINT MEUITE" 


FLUH 
SUITE 


PRINT SPC (X) 


Cette instruction permet d'afficher X caractères ‘ espace ". 


14 FRIHT "DÉBUT SPCC ES 03 "SUITE" 







CEEUT SUITE 
Lu 


3 espaces 





LPRINT 


L'instruction LPRINT provoque l'édition sur l'imprimante. Les règles d'utilisation 
sont les mêmes que pour PRINT. 
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Branchements  @orïo n° de ligne 


Nous avons vu comment exécuter des instructions PLUSIEURS FOIS grâce à la 
boucle FOR. 


L'instruction GOTO n° de ligne (ALLER EN n° de ligne) nous permet également 
de le faire. 


En voici un exemple : 


16 PRINT "JE M'AFPFELLE ORIC" 
24 GÜTO 14 


ELUH 

JE M'AFPELLE ORIC 
JE M'AFFELLE ORIC 
JE M'AFPELLE ÜRIC 
JE M'AFPELLE DEIC 







Pour stopper 
appuyer sur 
<CTRL-C> 








ERERAE IH 16 


e L'instruction 19 signifie : ECRIS " JE M'APPELLE ORIC ". 


e L'instruction 29 GOTO 1Ÿ provoque la suite de l'exécution du programme à 


la ligne spécifiée, soit un " branchement " à la ligne 19 qui est donc exé- 
cutée à nouveau. 


e La ligne 19 est exécutée inlassablement jusqu'au moment où vous appuyez 
sur les touches et [OC] simultanément. 
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Sous-programmes 


GOSUB n° de ligne 
RETURN 


Pour dessiner deux cercles pleins, nous pourrions écrire le programme suivant : 


100 194 


14 HIFES 

15 : 

24 CURSET 199,54, 1 
34 FÜR K=1 TO 26 

4g :CIRCLE R;1 

39 HEXT F 

69 : 

F8 CURSET LORS 













mêmes 
séquences 
d'instructions 





64 FOR R=1 TO 24 
99 :CIRCLE R,1 
199 MEXT K 


Comme vous l'avez remarqué, nous avons écrit deux fois la même séquence 
d'instructions. 


Et si nous avions voulu dessiner dix cercles pleins. 


N'ayez crainte, il existe une autre méthode beaucoup moins fastidieuse. 
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Plutôt que de répéter PLUSIEURS FOIS dans un programme une même séquence 
d'instructions, nous utilisons un SOUS-PROGRAMME. 







14 HIFES 

15 : 

4 #G=146 er e64 CURSET #4, 9,1 
38 TA=SE TT 214 FÜR Rz1l TO € 
44 GOSUE 248 #26 :CIRCLE R,1 
4 #G=166 ler / 238 HEXT K 

SD Ye] GE £_2484 RETUEH 


D 


FD CURSET 166,148 17 
GOSUE EL TE 
EHD &--7 


sous-programme 


retour automatique 
à l'instruction 
qui suit GOSUB 










e L'instruction 49 GOSUB 299 provoque un " branchement " du programme à la 
ligne 299 (comme le ferait GOTO 2ÿf) mais lorsque l'instruction 249 RETURN 
(retour) est exécutée, il y a retour AUTOMATIQUE à l'instruction qui suit 
49 GOSUB 299 (59 sur l'exemple). 


e Le programme se poursuit en 59 et l'instruction 89 GOSUB 299 provoque un 
nouveau branchement en 299 ; au moment où l'instruction 249 RETURN est 
exécutée, il y a retour à l'instruction qui suit 89 GOSUB 299 (soit 99 END). 


Un sous-programme peut ainsi être " appelé " de différents endroits du pro- 
gramme. || y a retour automatique à l'instruction qui suit GOSUB n° de ligne 
à chaque fois que RETURN est rencontré. 
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INPUT “Message”; variable 


L'instruction INPUT " Message " ; variable permet de définir les valeurs des 
variables PENDANT l'exécution du programme. 


Au moment de l'exécution d'une instruction INPUT, le message qui figure dans 
l'instruction (entre guillemets) est affiché à l'écran, puis l'ordinateur ATTEND 
que l'opérateur ENTRE au clavier la valeur de la variable spécifiée dans l'ins- 
truction. C'est seulement lorsque l'opérateur a entré et validé (par RETURN) 
la valeur, que l'exécution du programme se poursuit. 


Avec le programme présenté ci-dessous, nous effectuons la somme de 2 nombres, 
A et B. 


















vous entrez 
la valeur 
de la variable À 


19 INPUT "1ER NOMBRE ":A 
20 INPUT "2EME HOMERE ";B 
34 PRINT "SOMME :";A+E 


44 GOTO 14 


RUH 
1ER HÜMBRET 1£ 
ZEME HOMERET 15 
SOMME: 25 

1ER HÜMERET 14 
2EME NOMERET 5 
SOMME: 22 
1ER MOMERET 










appuyez sur CTRL-C 
pour stopper 
l'exécution 










message 
de l'instruction 1ÿ 


l'instruction INPUT 
rajoute un ? après 
l'énoncé du message 
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EXEMPLES 


CERCLES 


Le programme qui suit nous permet de dessiner des cercles pleins à n'importe 
quel endroit de l'écran. 










permet de changer 
les valeurs à chaque 
passage dans la boucle 






14 HIRES 

15 : 

3 INPUT "LIGHECCENTRE à "à 

44 INPUT "COLONMECCENTRE à "3C 
45 INPUT "RAYON "3:RY 

94 INPUT "COULEUR <@-15 "iCL 


(Ts | 
pour positionner 
le curseur 


78 : 
S CURSET CL, C 
pour dessiner 
un cercle plein 


3G FÜR Rel TO KY 
144 :CIRCLE R,CL 
118 MEXT FE 
128 GOTO 34 
définition 
du premier cercle 








FUH 
LIGHECCENTRE) % 144 
CÜLOMMEX CENTRE 7 1 
RAYOH 4 

COULEUR € 4 








couleur 
de papier 






couleur 
d'encre 







100 


premier 
cercle 





cercle en 
couleur papier 
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FAITES VOTRE MARCHE 


Voici un autre exemple d'utilisation de l'instruction INPUT. Au fur et à mesure 
des achats que vous effectuez, le programme calcule la somme qu'il vous reste 
dans votre porte-monnaie. 


19 INPUT "QUELLE SOMME AVEZ VOUS ";350 


@ INPUT "PRIS DL PRODUIT "PRIX 
4 INPUT "OUANTITE ";5GT 

59 SOMME=SOMME-S PRIXXOT à 

64 PRINT "IL VOUS RESTE: "; SOMME 
F9 GOTO 36 

RUH 

QUELLE SOMME AVEZ VOUS % 164 
PRIX DU PRODUIT % 2 

QUANTITÉ Ÿ 5 

IL VOUS RESTE: 94 

PRIX DU PRODUIT ?7 4 

GUANTITE 7 5 

IL VOUS RESTE: 74 

PRI4 DU PRODUIT 


Ce programme ne s'arrête que si vous appuyez sur | CTRL 
Nous verrons dans le chapitre suivant comment stopper ce programme par un 


"test: ", 
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Tests IF. THEN 


THEN 
instruction teste si une condition est 





IF 
L'instruction condition 

SI ALORS 
vraie et, dans ce cas, exécute une ou plusieurs instructions. 


14 INPUT "VOTRE AGE "AGE 
2 IF AGE+15 THEN PRINT "YOUS ETES MAJEUR" 


36 GOT 16 
















opérateur 







EUH 
de 
YOTRE AGET 24 comparaison cette instructio 
n'est exécutée que si 






VOUS ETES MAJEUR 
VOTRE HGEY 12 
VOTRE AGE 


AGE est plus grand que 
18 






L'instruction 2 signifie : 
29 Si AGE est plus grand que 18 ce ECRIS '! vous êtes majeur ! 


IF THEN 






PRINT "VOUS 
ETES MAJEUR" 





L'instruction IF … THEN permet l'exécution de séquences d'instructions seule- 
ment dans certains cas. C'est dans la " souplesse " conférée par cette instruc- 
tion de test au déroulement du programme que réside toute la puissance de 
l'ordinateur. 


REMARQUES 


e Pour exécuter plusieurs instructions, il suffit de les séparer par le caractère 
: (deux points) . 


28 IF AGE?18 THEH FRINT:PEIHT "VOUS ETES MAJEUR" 
















provoque 
un saut de ligné 
avant l'affichage 
du message 





deux 
instructions 


e Les différents opérateurs de comparaison sont : 
égal à 
plus grand que >= supérieur ou égal à 


plus petit que <= inférieur ou égal à 


NA NV 
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EXEMPLES 


PRODUIT DE DEUX NOMBRES 


Le programme ci-dessous présente deux nombres à l'opérateur et lui demande 
quel en est le produit. 


34 PRINT "DONNEZ MOI LE PRODUIT CE "A5" FAR "GE 
46 INPUT "VOTRE REFONSE "FR 

SD IF E=A#E THEH PRINT "ERAYO" : END 

54 PRINT "HOH ":GOTO 34 






2 instructions 
séparées par : 


FUN 

CONHEZ MOI LE FRODUIT CE 3 PAR 
VOTRE REFONSE % 75 

HUM 

DONHEZ MOI LE FAOQUIT CE 3 FAR 
VOTRE REFONSE T FE 

ERAYT 


DE x] 


œ 






Afficher : Donnez-moi 
le produit de A et B 






Afficher : Non 34 






R—— Entrer réponse 


FAITES VOTRE MARCHE (BIS) 


Reprenons le programme ‘" Faites votre marché " et ajoutons lui un test pour 
vérifier qu'il vous reste assez d'argent avant de procéder à un achat. 


RUH 
CON 
PRI 
GUA 
YOU 
PRI 
QUA 
IL 












stoppe 
l'exécution du 
programme si vous 
entrez ÿ 






INPUT "COMBIEN AVEZ VOUS "; SOMME 


INPUT "PRIX DU PRODUIT ";:FRIX 

IF FRI#=G THEN END 

INPUT "GUANTITE ";GT 

IF SOMME-<GT#PRIX2<G THEH PRINT "VOUS H'AVEZ FAS ASSEZ": 
GOTO 36 

SOMME=SOMME-< FRIAXOT 2 

PRINT "IL VOUS RESTE:";SOMME 

GOTO 39 


BIEN AVEZ VOUS 7 194 
# DU PRODUIT ? 54 
HTITE 7 4 

5 H'AVEZ PAS ASSEZ 

# DU PRODUIT 7 34 
HTITE 7 3 

VOUS RESTE: 1& 
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Les chaînes de caractères 


Il existe deux types de variables : 


e les variables " NUMERIQUES " (étudiées précédemment) 
e les variables " CHAINES DE CARACTERES #. 


Elles se distinguent des variables numériques par la présence du caractère $ 
(dollar) à la fin du nom des variables. 


14 INPUT "VOTRE NOM ":NOMS 
24 : 

39 PRINT NOM 
48 GÜTO 36 





il faut le signe 
$ à la fin 






Ready 


RUH 

VOTRE HOM 7 TIHTIH 
TIHTIH 

TIHTIH 

TIHTIH 

TINTIH 






appuyer 
sur <CTRL C> 
pour stopper 
l'exécution 





ariabl 
GECHED Te 
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Si dans l'instruction 39 nous ajoutons un ; après NOMS, le nom est imprimé 
sur tout l'écran. 






le ; point virgule 
empêche le saut 
de ligne 





39 PRINT HOM&; 


RUNZ 
TINTINTINTIHTINTIN 
TINTINTINTINTINTIN 






ADDITION DE CHAINES 


Pour additionner des chaïhes de caractères nous utilisons le signe ! + ‘. 









les 

guillemets 
sont 

obligatoire 












n'oubliez pas 
le ‘blanc' après le 
guillemet 










14 A$="TINTIH 

24 B$="/ET MILOL" 
34 C=A&+ES 

4 PRINT C$ 





EUH 
TIHTIH ET MILOU 


CNT) + [eh] Milolu 
A$ B$ 






les ‘blancs! à 
l'intérieur des guillemets 
sont respectés 
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LEFTS, RIGHTS, MID$ 


Les fonctions LEFTS, RIGHTS et MID$ permettent de sélectionner certains 
caractères à l'intérieur d'une chaîne. 


LEFT$ (chaîne, longueur à prendre) donne les caractères de gauche d'une chaïne. 


A$ 


LEFTS$(A$,2) [MI 


RIGHTS (chaîne, longueur à prendre) donne les caractères de droite d'une chaïne. 


pp a 


RIGHTS (AS$,2) 


MID$ (chaîne, position début, longueur à prendre) donne les caractères du 
milieu d'une chaïne. 





Longueur 
à prendre 


Le programme ci-dessous illustre ces trois fonctions : 


14 A&="MILOU" 

24 PRINT LEFT#CA$,2) ‘REM Z CARACTERES À GAUCHE 

39 PRINT RIGHT#CAS,2 :REM 2 CARACTERES À DROITE 

49 PRINT MID$CA4$,2,3) :REM 3 CARACTERES A PARTIR DU ZEME 


LEN (chaïne) donne le nombre de caractères d'une chaïne. 


19 INPUT "VOTRE HOM ";:HOMS 
24 L=LEHCHOMS 2 
39 PRINT "VOTRE HOM COMPORTE ";L:"CARACTERES" 


RUH 


VOTRE NOM ? TIHTIH 
VOTRE NOM COMPORTE 6 CARACTERES 


NOMS  (TITINITIIIN 


el = 6 — 


ASC (caractère) donne le " code " d'un caractère. Tous les caractères ont une 
représentation " codifiée " à l'intérieur de la machine. Ainsi, le caractère A, 
par exemple, est représenté par le code 65. 


PRINT ASCC "AZ 
65 


PRINT ASC£"B" 27 
66 


CHRS (code) affiche un caractère dont on donne le code ; C'est la fonction 
inverse de ASC (caractère). 


PRINT CHR$&CES ST --5: ff 
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STR$ (X) convertit une valeur numérique en chaîne de caractères. 


19 PRI#4=45 
4 PRIXSE=STRSC PAT # à 
36 FRINT PRIX# 


RUH 
45 


VAL (chaïne) donne la valeur numérique d'une chaïne dont les premiers carac- 
tères sont des chiffres. C'est la fonction inverse de STR$ (X). 


19 PRIX$="45 FRANCE" 
29 PRINT YALCFRIKS 


FUN 
45 


48 


La table des codes des caractères ci-dessous a été obtenue avec le programme : 


16 FÜR C=32 TO 128 
£G :PRINT C,CHR#CC à 
34 MEXT C 


cr Ed m GE 
33 |! Sa À AP 4 
54 " 66 E 38 
35 # Er © 39 
36 # &s LC 144 cd 
CT 63 E 11 € 
38 & ra F 1GZ F 
39 ‘ Fi G 1H 
da € ré H 184 H 
di © F3 I 1H i 
4 *# F4 | 1GE ji 
3 + ra K 187 E 
44 ; ré L 195 
45 — Fr M 145 m 
dE, r& H 114 n 
F # F3 111 © 
45 4 Sa F 11E 
43 1 ä1 Q 115 9 
SE BE K 114 + 
De 3 £ 115 5 
BE à Ed T 116 t 
5349 ëS U 1ir u 
54 Ë EE 115 
55 7 Br M 115 1 
56 & BE 12 x 
or 3 54 121 
5: SG € 12E x 
23 à 51 C 123 
Ég < SE 1£4 : 
61 = 33 7] 125 .} 
62 ? ad * 126 
63 Ÿ 35 127 
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Les nombres aléatoires RND (1) 


La fonction RND (1) donne un nombre " au hasard " compris entre 0 et 1. 


Le processus est le même que lorsque vous jetez un dé, vous obtenez un nombre 
au hasard compris entre 1 et 6. 






pour afficher 
3 nombres 
aléatoires 


18 FÜR H=1 TO 3 
29 :PRINT RHD 1) 
38 MEXT H 







RUN 
-7r3343355 
.291834435 
-617419111 


Pour obtenir des nombres entiers compris entre 1 et 19 par exemple, il faut 


[] - Muitiplier par 10 le nombre obtenu par RND (1), 
2] - Prendre la partie entière du nombre à l'aide de la fonction INT, 


[8] - Ajouter 1 au résultat. 


Ce qui se traduit ainsi : 





ie = INT (RND (1) * 10) + 1 

compris [2] El F] 

entre 

1 et 10 entre 0 et 9 +1 
REMARQUE 


INT (8.6) donne la partie entière de 8.6 
EXEMPLES : 1) PRINT INT (8.6) 7 
8 


2) PRINT INT (-78) Z 
-8 
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Avec ce programme, nous affichons deux nombres aléatoires compris entre 1 et 
19 et nous demandons quel en est le produit. 


19 A=IMTÉRNDE 12#1893+1 :REM NOMBRE ENTRE 1 ET 19 
24 E=IHTCRHDC 1 #14 +1 








35 PRINT 
48 PRINT "GUEL EST LE FROQUIT DE "545" FAR "36 
94 INPUT "VOTRE REFOHSE ":5R 

64 IF R=A#E THEN PRINT "ERAVO":GOTO 16 

70 PRINT "HOH,C'EST ":A#E 










84 GOTO 14 pour 
sauter une 
RUH ligne 






QUEL EST LE FROBUIT CE 5 
VOTRE REFONSE 7 45 
ERAVO 


QUEL EST LE FRODUIT DE 4 FAF & 
VOTRE REPFOÛHNSE % 3 
HON,C'EST 5 







FAR 


REMARQUE 
Il existe une instruction de test " complétée " : 
IF condition THEN instruction(s) ELSE instruction(s) 


qui permet d'exécuter des instructions si la condition testée est fausse. 
En l'utilisant nous pourrions simplifier la fin du programme de la façon suivante : 


60 1F R=A#XB THEN PRINT "BRAVO" ELSE FRINT "NON,C'EST "i:A#E 












instruction 
exécutée si la 
condition testée 
est fausse 


instruction 
exécutée si la 


condition testée 
est vraie 
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EXEMPLE 
PAVES MULTICOLORES 
pour 
50 pavés 
14 LORESA 
249 FOR Ezi TO 56 :REM 54 FAYES 


:REM COLONHE 
:REM LIGHE 
:REM COULEUR 


34 CS INTÉ RHDC 1 #38 5 
49 :L=INTE RHDC 1 #24 à 
929 :CLEIHTCRHDE 1 247 1417 
68 :PLOT C'L,CL 

74 MEXT E 











nombre 
compris entre 
0 et 37 







REMARQUE 


Les couleurs sont comprises entre 17 et 23. (RND(1)°7) fournit un nombre 
compris en 0 et 6, donc en ajoutant 17 on obtient une couleur " au hasard " 
comprise entre 17 et 23. 
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Les tables DIM (nombre d'éléments) 


Les tables contiennent des éléments de même nature auxquels nous accédons par 
un indice. Nous pouvons ainsi traiter les éléments de la table (SOMME sur 
l'exemple) en faisant simplement varier un indice ('M'). 


Dans l'exemple ci-dessous, nous introduisons dans la table DEPENSE() les 
dépenses relatives à chaque mois de l'année, puis nous calculons le total de 
celles-ci. 


L'instruction DIM (nombre d'éléments) de la ligne 19 réserve la place (en 


mémoire) pour la table. Lorsque la table comporte moins de 10 éléments, il 
n'est pas nécessaire de la " dimensionner " par cette instruction. 


TABLE DEPENSE () 


— — — 0 © —J Où V1 Li 0 = 


n = © 










pour 
dimensionner 
la table 


19 DIN DEFEHSES 120 ‘RENM 12 ELEMENTS FOUR LA TABLE 
15 : 
20 REMEns sms INTROGUCTIONH DES DCÜOMMNHEES 






39 FOR M=1 TO 14 

49 PRINT "MOIS ";M; 

29 :INPUT "DEFENSE "3 DEFEHSES M) 
64 HEXT M 

PO RE CALCUL TOTAL CEFENSES 
84 FRINT 

94 INPUT "MOIS DEEUT "D 

35 INPUT "MOIS FIH "5F 

194 SOMME=S 

114 FOR MeC TO F 

126: SOMME=SOMME+DEFENSES M à 

134 HEXT M 

146 : 

15@ PRINT 

168 PRINT "TOTAL CEFEHSES :";S0MME 

174 : 

15@ PRIHT:GOTO 54 







la ère fois 
DEPENSE(M) est égal à 
DEPENSE(1) puisque 





MOIS 1 CEFENSE Ÿ 1244 

MOIS 2 DEFENSE 7 1164 

MOIS 3 DEFENSE Ÿ 1566 

MOIS 4 DEFENSE % 1494 
M015 S DEFENSE *Ÿ 11@4 

MOIS 6 DEFENSE * 1464 

MOIS 7 DEFENSE % 


MOIS CEEUT % 2 
MOIS FIN Ÿ 4 


TOTAL CEFENSES: 3 


MOIS CEEUT % 1 
MOIS FIH % 4 


TOTAL DEFEHSES : 
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DATA - READ - RESTORE 


DATA donnée 1, donnée 2 


L'instruction " DATA donnéel, donnée 2, … " permet de définir des données 
à l'intérieur même du programme. 


READ variable 


L'instruction “ READ variable " (LIRE variable) transfère ces DATAS dans 
des variables. 


Les " données " sont lues dans l'ordre où elles sont définies. Chaque READ 
exécuté fait progresser le " pointeur de DATA (géré par BASIC). 















pointeur de DATA 
après deux READ 
exécutés 






pointeur de 
DATA au 
départ 








pour indiquer 
a fin des DATA 






TT. 


les "données! 
dont écrites sur 
plusieurs lignes 


29 DATA MARS,31, AVRIL, 39 
38 DATA # 











É DATA JAHYIER,31,FEVRIER, 28 







4 
954 READ MOISS:IF MOISS="4" THEH EME 
68 REAC HJOUR 
F8 PRINT MOISS, HJOUR 
84 GOTO 54 











lit successivement 
les variables chaîne, JANVIER 
au premier passage dans la 
boucle, FEVRIER au 2ème 








RUH : 

JAHVIER 31 successivement les 
FEVRIER £2£ variables numériques, 
MARS 31 au er passage dans 
AVRIL 3ÿ la boucle, 28 


au 2ème 
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REMARQUES 


e Nous avons placé le caractère ‘*' pour repérer la fin des données. Le choix 
de ce caractère est arbitraire et pourrait être remplacé par '$' par exemple. 


e Naturellement, il faut que le type de variable (numérique ou chaïne) spécifié 
dans READ s'accorde avec la donnée définie dans l'instruction DATA. 


e Les instructions DATAS pourraient tout aussi bien être placées en fin de 
programme. 


RESTORE 


L'instruction RESTORE positionne le pointeur en début de DATA, ce qui permet 
de relire les données depuis le début. 
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Lecture d'un caracière 
au clavier 


GET 
KEY$ 
PEEK (#208) 


GET caractère 


Cette instruction lit un caractère au clavier dès la frappe. L'exécution du pro- 
gramme reprend sans attendre que vous frappiez sur la touche RETURN (comme 
avec l'instruction INPUT). 


14 GET C& 

£6 PRIHT ASCCCS à 
25 IF ASCÉCS)=S THEN END :REM CTRL CF 
38 GOTO 16 






vous avez 
appuyé sur 










vous avez 
appuyé sur 
<RETURD 





REMARQUES 
e Toutes les touches ont un code, y compris la touche RETURN (code 13). 


e Pour afficher le caractère frappé, il faudrait transformer ainsi la ligne 29 : 










affiche 
le caractère 
frappé 









26 PRINT ASCCCH:;:C$ 


KEY$ 


Très utilisée dans les jeux, cette instruction teste si un caractère a été frappé 
au clavier sans bloquer l'exécution du programme (comme GET) si aucun carac- 
tère n'a été frappé. 


58 


Le programme ci-dessous affiche le message " APPUYEZ SUR UNE TOUCHE 
tant qu'aucun caractère n'est frappé. 


En appuyant sur une touche quelconque, vous stoppez l'exécution du programme. 









teste si un 
caractère a été 
frappé ou non 







34 C=KEY&:IF Ce" THEM END  :REM CHAINE VIDET 
4G PRINT "APFUYEZ SUR UNE TOUCHE" 
59 GÛTO 34 


RUH 

AFFUYEZ SUR UME TOUCHE 
APPUYEZ SUR UNE TOUCHE 
APFPUYEZ SUR UHE TOUCHE 
APP 


PEEK ( # 298) 


Dans certains programmes d'animation, l'instruction KEY$ n'est pas suffisante. 
En effet, en appuyant sans relâche sur une touche, le délai de répétition des 
touches ralentit le jeu. L'instruction PEEK ( # 298) remédie à cet inconvénient. 






permet de 
déplacer un point 
plus rapidement 

qu'avec KEY$ 







14 LOFESEH 

15 C=18:lLeif 
EG : 

34 COsPEEKCHEGS GIF CeSsé THEM 3 

4@ IF CD=1F2ATHEN IF C1 THEH CeC-1  :REM GAUCHE 
5& IF CD=1SENTHÈNSIF C€38 THEN C=C+1 :REM DROITE 
ë4 FPLOT L'L,1r 

Fa GOT 54 


À 


Ex 


code code 


REMARQUE 


172 et 188 représentent les codes des flèches gauche et droite. Ces codes sont 
différents des codes ASCII lus par KEY$. 
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Affichage direct à l'écran 


PLOT colonne, ligne, “Message” 


PLOT colonne, ligne, CHR$ (couleur) + “Message” 
SCRN (colonne, ligne) 


PLOT colonne, ligne, " Message 


Cette instruction affiche un message à l'écran sans modifier le reste de l'écran. 


L= 1 


cm AFFICHAGE 





14 CLS 
28 FLOT 164,15, "AFFICHAGE" 


PLOT colonne, ligne, CHRS (couleur) + " Message " 


Pour afficher un message avec une couleur différente de celle définie par INK, 
il suffit d'afficher CHR$ (couleur) avant le message. 


18 CLS 
24 FLOT 14.1 
fi 


34 CHR 1 + "AFFICHAGE ROUGE" 
39 FLOT 14,18.0 


CHEGE E + "AFFICHAGE VERT" 


1 — 7 : couleur d'écriture 
16—»>23 : couleur de fond 
12—  : clignotement 


SCRN (colonne, ligne) : 
Cette instruction donne le code d'un caractère affiché à l'écran. 


18 CLS 
EG PLOT 16,15,"4#" 
34 PRINT SCRHS 14,15" 


RUH 
42 
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Caractères graphiques 


e Les caractères affichés sont représentés par des ‘ matrices " de 8 x 6 
points. 


e Pour changer le dessin d'un caractère, (! par exemple) on procède ainsi : 


1) Pour chaque ligne, on additionne les nombres (1, 2, 4, 8, 16, 32) où 
les cases sont noircies. 


Exemple : pour la ligne 2, on obtient 16 + 8 + 4 = 28 


Oo 
— 


NN 
La] 


DH 

LIGNE 1 8 

LIGNE 2 16 + 8 + 4 = 28 

32 + 16 + 8 + 4 + 2 = 62 







8 
ÿ 


LIGNE 8 


2) On écrit le programme ci-dessous en reportant en DATA les 
nombres obtenus. 


5 REM REDEFINITION DU CARACTERE ‘!° 

19 DATA 8,28,62,62,62,28,8,0 

24 : 

24 A=46088 

4 C$="1":C=ASCC CS): DeC#S 

S@ FOR H=@ TO 7:READ ND:POKE A+D+H,HND:NEXT H 
6à : 

7& CLS:FLOT 18,18,C$ 

75 REM----——— DEFLACEMENT 


84 HAIT 1484 
S4 FOR CZ TO 34 


184 :PLOT C,24,C$ 
145 :HAIT 14 
147 ‘PLOT C,29," ù :REM EFFACEMENT 


114 MEXT € 


3) Lorsque le programme a été exécuté, l'affichage du caractère ' !! 
est modifié. 


Les cahiers du BASIC sur ORIC / 63 


Sauvegarde 
d'un programme 


CSAVE "nom programme, vitesse 
STORE nom table, nom fichier, vitesse 
RECALL nom table, nom fichier, vitesse 


CSAVE " nom programme ", vitesse 


Lorsque vous " débranchez " un ordinateur, le programme présent dans la 
" mémoire " disparaît. 


o Pour le sauvegarder sur cassette, on utilise la commande : CSAVE " nom 
prog ", vitesse 







comme 
‘slow! pour 
vitesse 
lente 







Ex : CSAYE "TOTO",S 
CSAVE "TOTO" 


Bien entendu, il faut appuyer sur la touche " RECORD " du lecteur de cas- 
settes. 


Pour transférer le programme de la cassette vers l'ordinateur, on fait : 


CLOAC "TOTO".S 
ou CLOAD "TOTO" 
ou CLOAE "" 


On appuie ensuite sur la touche " PLAY " du lecteur de cassettes. 


STORE nom table, nom fichier, vitesse 
RECALL nom table, nom fichier, vitesse 


" STORE " sauvegarde une table sur une cassette et " RECALL " transfère la 


sauvegarde dans une table. 


STÛRE 4%, "TOTO" 
RECALL À$,'"TOTO" 


Sur ORIC-1, il faut utiliser un sous-programme écrit en langage machine 
(cf programme chèque). 
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Deuxième partie 
PROGRAMMES 


Courses de chevaux 
Obstacles 

Tir sur cible 

Chute 

Télécran 

Capture 

Conduite 

Tennis 

Addition de deux nombres 
Dessin de figures 
Rotation d'une figure 
Télécran haute résolution 
avec sauvegarde 
Gestion de chèques 
Lecture rapide (1) 
Lecture rapide (2) 
Lecture rapide 

avec analyse de texte 
Dictée 

Mise en ordre d'une phrase 
Animaux 


Courses de chevaux 


REM COURSE DE CHEYAUX 


RENM VOUS Parlez sur un cheval, 


mPlacement des Chevaux, 


FEr Une table #5 contient l'e 
est aléatoire, 


REH L'avance des Chevaux 


5 Mn EE Lo Fo 


LE 


ren 
Le) 


11 CLS 

12 IHPUT MGUEL CHEVAL 61,:2:344.:50 "3CH 

5 H=S :REM © Chevaux 

24 LORESG :RENM basse resolution 

38 FOR Is1l TO Mike les: T el GeTKZ: HET I 

QD RM ame eme Avance cheveaux 

SG FOR Il TO H 

SE :PLOT XII 16 :RENM effacement ancignng Position 

L'H+EHDE 1 EE :REM nouvelle Position 

ACID ME TI 1 1E+T :REM affichage nouvelle Position 
1238 THEN 246 





116 GÜTO 54 


246 IF CH=I THEH FEIHT "GAGHE" 
245 HAIT 66 
214 GOTO 16 
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Obstacles 


1 REM OBSTACLES 
2 ñ 


3 REM Vous devez traverser des obstacles 
4 KREM en utilisant les fleches ‘bas et ‘haut’ 


CLS 

INPUT M"HIVEAU 61-185 "5H 

LORES4 

REM ee DESSIH OBSTACLES 


#=ÿ = 1 G+RNDC 1345 :REM Point de depart 
PLOT #,%:18 


WAIT 154 

C=KEYS: IF C$="" THEN 454 ‘REM test clavier 
IF ASCECHI=1@ THEN Y=+1 :REM fleche bas 

IF ASCCCHO=11 THEN Y=Y-1 :REM fleche haut 

REM--- 

#=ñ+1 

IF SCRHCX,3=17 THEN EXPLODE : PLOT 1,23, "PERCU":HAIT 26@:G0T0 25 
PLOT #,%,15 

IF 4238 THEN FLOT 1,25, "GAGHE":MAIT 264:G0TO 25 
WAIT 5 

GOTO 324 





HOUR 


14 


Tir sur cible 


REN TIÉ SUR CIBLE 

FE Un Frojectile tombe du haut de 

FEM l'ecran £a Gauche. 

FEM En aFPugant sur SESFACE vous Provoduez un tir gur une 


ible. 


HIFES : FAPERG : IHK1 

FRINT "APPUYER SUR <ESPACE: " 

F=ÿ :RENM nombre de Points 
REM-----— Dessin cible, 

“C1 :REM centre cible 
CURSET 159, %C 

FOR RslE T 
:CIRCLE KE: 
HEXT E 


FOR T=1 TO 5 :REM 5 tirs. 
G :FOR Y=14 TO 164 STEF 3 :REM deplacement tir 
G :CURSET 29,Ÿ-3,0 


124 :CURSET 29, %,1 

125 :HB=KE VS: IF K$<>"" THEN 145 :REM test clavier 
148 :HEXT % 

142 : 

145 :ZAP:DRAU 136,8, 1 :REM tir 


159 Dec: PeP+AESI IHTÉDE 10 


3 HAIT EG 

4 HEAT T 

G PRINT F3 "FOIMTE"; 
& MAIT 4GE 


G GOTO 14 


APPUYER SUR <ESPACE> 





Fa 
54 
1äa 
114 


126 : 


134 
244 
c14 
24 
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Chute 


REM CHUTE 


FREM Les lettres de votre nom tombent Une à Une 
FEM du haut de l'ecran, 
FEM et s'emPilent en bas de l'ecran, 


CLS 
INPUT "VOTRE HOM ";:NOMS 
CLS:X=189 


G FOR F<LENCHOMS& 2) TO 1 STEF-1 


#B=MIDSEE HOME, PF, 1 
: FÜR Y=i TO £d 
IF SCRHCK, 26232 THEH 244 
5 PLOT #,%-1," " :REM espace 
PLOT 7,5% 
:MEXT 
:PING:HAIT 5 
MEXT F 
EHC 


— 9 


1Z0O0VC 
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Télécran 


REM TELECEAH 


FEM Avec les 4 flechées vous deplacez 
REM un Foint qui laisse une ‘trace* 
FEM Fermettant ainsi de realiser 

FEM un dessin, 


3 FEM La couleur 5e choisi a l'aide de 1,2,5, 


LORFESG 
#elf: el :REM coordonnées dePart 
CLe17 


PLOT 25,15, "B:EAISSER" 

PLOT 5,13, "L:LEVER" 

PLOT 25, 2 ,"E:EFFACER" 

PERF 25,21,"1,8,8: COULEURS" 


TESCRHE 4, 7 


C$= KES IF Che THEH 164 

PLOT CL 

FLOT HV LE :REM curseur clignotant 
GOTO 119 


IF L=@ THEN FLOT #,Y,CL 
IF L=1 THEM PLOT KV T 


f, 

5 THEN IF #31 . THEN À ‘REM Gauche 
3 THEM IF #38 THEH #=k+1 ‘REM droite 
n : 
1 





Vs THEH Yeÿ+1 :REM bas 
1 THEN IF 24 THEM Ya=ÿ-1  :REM haut 


#="L" THEN 
#="E" THEN 
$="E" THEN 
& 
g 
$ 


H OH 


She 


="1" THEN 
$="2" THEN 


SOU EFLr 


DR RE 
HHH 


nm 
LD Co —] 


5" THEH 


IF Cé="S" THEH CSAVE "DES", A46@d4@, E43@aa 
IF C&="T" THEH CLOAD "1, A4GGd4f, E4S6a@ 
GOT 144 
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Capture 


14 REM CAFTURE 


EE 

22 REM Une soucouPe se dePlace a travers 

23 KEM des meteorites, 

24 REM Utiliser les fleches Pour se deplacer 
25 RENM Vous devez caPturer des ennemis( #2 

z6 REM sans toucher une meteorite, 

2r RE plus raPide sur ATMOS: 

34 : 


35 CLS: IHPUT "NIVEAU C1,2,,,,6% "3H 

48 5C$="8" 

1 REM-=— eme meme Definition soucour’e(oPtionnel 
42 DATA 12,12,39,63,91,51.6863. 63 

45 A=46984 : DeASCE SC I#E 

46 FOR H=@ TO 7:READ HD:FOKE A+D+H:HD:HEXT H 


45 REM----- 

54 PRINT CHARGE 17 55 :REM suPPression curseur 

SE à 

68 HVe1S: Yes: Am: Mie :REM ancienne Fosition soucoupe 
ra C=d 


94 CLS: PAFER6 : INK4 

34 PRINT "FLECHES GAUCHE ET DROITE" 

35 PRINT:PRINT:PRINT:FRINT 

168 FOR Lei TO 19484 

136 :#4=INTE RNDC 1 3435 +1 

148@ :IF INTCRHDC13#6 2=1 THEN PRINT SPC KO "4": GOTO 175 
158 :H=RNDC 1 243541: PRINT SPC 3 Ut 


164 : 

172 :1F SN RE THEH CeC+1 :REM capture 

175 IF SCRNCEY, Vie ASC "AND THEH GIG:REM test collision 
184 : 

181 :PLOT AK Hi-1," " :REM effacement ancienne Position 
182 :PLOT XV, 50% :REM nouvelle Fosition 

135 Û 

186 Hey: Heu :REM ancienne Position 

1ër : 

158 REM---—--—- test clavier 


183 :FOR N=1 TO 6-Hy 

199 :#=PEEKC#EGS I: IF #=56 THEN 215 

244 :IF #=188 THEN IF KVE36 THEN KV=#V+l:GOTO 366 
219 :IF X=1F2 THEN IF VE THEN #V=#y- 1: GOÛT 30 
215 :MEXT N 

344 HEXT L 

345 EHC 

306. RENE FIH 
314 EXPLODE : PAPERS : HAIT SG: PAPER 

329 PLOT 18,25, CHRSC 1 +" CAPTURES : "4+STR#( C3 

334 FLOT 14,24, CHR 1 + "CAPTURE-TEMPS : "4STRSC C'L#180@ 03: MAIT S8&:GOTO 64 





72 





QD Jin D - 


Conduite 


COHGUITE 


Avec les fleches Gauche et droite.vous 
Pilotez un vehicule, 

Vous devez eviter les bords de la Piste 
ainsi ue les autres vehicules, 

plus raFide sur ATMOS 


S:IHPUT PHIVEAU C1,8,53 "iMW 

1H 

sr anis ne rer) Dessin voiture 
DATA 45,63, 45,12,12, 45.68, 45 

'Y= " ! LU] 

A=46484 

DeASCE M4 KE 

FOR H=@ TO 7 

:READ HD 

:POKE A+D+N, HD 

HEXT H 

REM == on ane me Dessin route 
Lé=CHRGE 2SS +" . "+CHRSC 2SS 2 






CLS : PAPER : INK4 

PRINT "FLECHES GAUCHE ET DROITE":FRINT 

Has 14 :REM Bord gauche Piste 
:REM Position voiture 
w REM Ancienne Position vehicule 
TO : 














364848 
1} INTE RHDe 1 25 0-1 :REM Ke] ou +1 
MATE :REM Décalage centre Piste 
IF #4 THEH Hi À 
CIF KES THEM ext] 


PRINT SPCEKK OI: LE 
IF KM24 THEN IF INTÉRHDE 1 NV el THEM PLOT HK+INTC RNDE 1 #5 +5 


°IF KM>34 THEN IF SCRNCHV.YV3=33 THEN 390 


IF SCRNCAV, VW 2=127 THEN 399  :REM Collision bord Piste 
PLOT AK A" OPLOT 4 4 4 

Aer Ty 

:CePEEKC#208 0: IF CeSé THEH ZG@:REM Test clavier 

IF Ce185 THEN #4 2441 :REM fleche droite 

IF Cel72 THEN Key] :REM fleche gauche 
NEXT KM 


R 
#HPLODE : PAPER :HAIT SG: PAPER S:MAIÎT SG:PAPER F 


314 PRINT KM-188;" EM:HAIT 28G:GO0T0 64 


E 


E 
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Tennis 


Le programme présenté permet de jouer à deux. La raquette gauche est con- 
trôlée avec les flèches let la raquette droite avec les flèches Î — 


Nous avons utilisé PEEK (# 298) pour obtenir un déplacement rapide des ra- 
quettes. 


REMARQUE 


e Pour ralentir éventuellement le mouvement de la balle, on ajoutera une 
boucle FOR...NEXT : 


299 FOR T=1 TO 3 
345 NEXT T 


Cette boucle ralentit le mouvement de la balle tout en permettant de tester 
le clavier en permanence. 


JOUEUR A JOUEUR B 
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PROGRAMME 


19 REM  TEHMIS € Z JOUEURS? 


Zf : 

34 CLS: INPUT MHIVEAU C1,2,39 ";:HY 

99 REM---eee mm mm mme DESSIN TERRAIH 

37 FRINT CHESC1F :REM SuPPression curseur CCTRL Gi 


di HEz3S-HVX#S 

45 Kiss: viss: 2sEt 

SA LORES & 

SA FOR #z#1 TO #Z:PLOT K, 1.17: PLOT KE AT:HEXT 
34 Dxsi:Dv=1 

114 x“E=S:YE=16 

124 PLOT #E TE, 15 

154 HR=Al:YR= 184 

135 KkD=K£:"D=18 

144 PLOT #F TR, 18: PLOT KR TR+1.16:PLOT KR YTREE, 18 
145 FLOT #0, #0, 18:PLOT D. YD+41,18:PLOT #0 Lez, 18 


LE 








148 REM-----——— C'EFLACEMENT EALLE 

158 FLOT «6,616 ‘REM EFFACEMENT BALLE 
174 HB=xEG+CE :YB=TE+C'r 

184 PLOT &E.%6,18 

190 : 

264 IF YE<Y1+Z THEN Lr=-0" :REM REEOND HAUT 
216 IF YErvY£-Z THEH Di=-0 :REM REBOHNC BAS 


Z1Z :REM-- Rebonds raquettes 
215 IF AB2KD-E AND YE=i"D AND YEé=vYD+S THEN Cé=-Dx 
234 IF HESER+EZ AND TESTÉ AND TBE TR+S THEN Dxs-CDx 





264 IF HESER+I THEN FLOT 1,23, "PERDU" :HAIT 348: G0TO 4& 
2ES IF XB>KXD-1 THEN FLOT X2,23, "PEROU" :HAIT 39G:GOTO 4@ 
erD REMeesesseeennemeses CEFLACEMENT RAGUETTE 1 ET & 


369 A=PEEKRSREGS OS: IF #eSé THEN 336 
395 IF C428 THEN 336 


314 IF #=156 THEH IF YRSYZ-S THEN TReYR+1l:PLOT KR, TR-1,16: 


F+£,15 


329 IF #S1FE THEN IF YRèr1+1 THEN VER 1: PLOT fi, TR 16: 





D+2,18 

349 IF X=156 THEN IF YD3Y1+1 THEN YD=YD-1:PLOT XD, YD+3, 16: 
D:18 

354 GOTO 154 


“els THEH IF YDEYE-S THEN YD=l+1:PLOT D, YD-1,16: 


FLOT 
FLOT 


FLOT : 
FLOT % 


HF 


ART 
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Addition 
de deux nombres 





18 REM ACCITIOH LE Z HOMERES 

1 : 

15 REN ë nombres compris entre 1864 et 14484 sont affiches 
15 KEM L'éeleve doit entrer de droite 4 de 
15 FEM le resultat de l'addition 

15 REM ainsi Que les retenues, 

24 : 

34 

an Mél :RENM 4 chiffres maxi 

SA #Lelä:YLelt :REM coordonnees affichaae 
6Ë : 

FA HISINTERHOE 1 EM :REM ler nombre 

BA HESINTÉRNEE 1 MEME  :REM Leme nombre 

SG IF MISMé-16 OF HE<M#-184 THEW F4 

184 : 

195 CLS 

187 NIS=STESC NI SH: MEGESTREE HET 

114 PLOT La les, STRSE NI 0 

124 PLOT le 1 slt, MA RETENRE ME 

134 

144 LOT éLezs fl, "e" 

154 

169 RS=N 1 4H2 : RSS=STREC RE à 

179 REM neo nan a a oo on SAISIE RESULTATS 
246 PeLENCN1$ 02 

eg1 RT=ï :REM KT:retente 

EB2 : 

214 FLOT él+Fet LL :REM curseur 


215 TReVALEMIDSC HIS, PF, 1 004 VALE MID HMES, PF, 1 2 RT 
216 RTS=INTCTR-14 


F R=TR-RTX#1E :RENM FE reste 


224 GET #$ 


S IF ASCCRMI=S THEM EHD 


234 IF RéWALERSS THEN. FING:GOTO Se 
248 PLOT #L+P-1,YL.F% 


24e: REMssrenemsenmesesne Test retenue 


244 IF KT=G THEN 356 
284 PLÔT #L+PF-e, Led, 13€ 


283 GET R%$ 

287 IF ASCERSA=S THEH EHD REM test Chrl € 
294 IF VALÉRSOCERT THEN FIHG:GÛTO 285 

292 FLOT &L+F-2, LR 

295 : 


30 P=P-1 


2 IF F=ÿ THEN 4@f 
363 IF F=l AND RT=<G THEN 466 


Tr 7, 1 
344 GÜTO 214 

510 REM-—=- + 4768 
+8 MAIT SA = 3 
414 GOT F4 : 
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Dessin de figures 


En déplaçant un curseur à l'aide des 4 flèches (= | }), nous dessinons des 
figures telles que : rectangle plein, cercle plein, triangle, … 


La juxtaposition de ces figures de base permet des dessins plus complexes. 


EXEMPLES 


RECTANGLE PLEIN 
Pour dessiner un rectangle plein, nous procédons ainsi : 


1) Nous positionnons le curseur au sommet gauche haut puis nous appuyons 
sur "V'!' (validation). 


2) Nous frappons "RP!" (rectangle plein). 


3) Nous positionnons le curseur au sommet droit bas puis nous appuyons 
sur "V'. 


position 1 
position 2 


TRIANGLE RECTANGLE 


position 1 


AN 


position 2 


CERCLE PLEIN 


On positionne le centre puis un point de la circonférence. 


position 2 


position 1 
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COULEURS : La couleur de fond ou d'écriture peut être changée. 


ns 1 


position 2 





EXEMPLE : Nous avons réalisé le paysage ci-dessous : 





En appuyant sur 1" (en mode curseur) on peut dessiner en couleur de fond 
et ainsi effacer des parties de figure pleines. Ne pas oublier d'appuyer une 
seconde puis sur "|" pour revenir en couleur d'écriture normale. 
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PROGRAMME 


15 


REM DESSIN 


28 : 


23 
36 
Foi 


35 


HIMEM H#97FF:TEAT:CLS 

PRINT "1- Utiliser les fleches Puis ‘W° Pour valider le Fremier 
nt LL 

FRINT "2 Donner le dessin a realiser RP Par ex" 


36 PRINT "3/ Positionner le Zeme Point puis ‘Y° " 


37 
58 
seu 
39 
44 
41 
42 
43 
45 
47 
45 
24 
Je 
593 
146 


FRIHT 

PRINT " ‘Il’ Permet de Passer en couleur ‘inverse'(sous mode ‘Ccur 
2 

FRINT "<Efface des Parties de figure FPleinesi "PRINT 


PRINT "Figures: RE : RECTANGLE" 


PRINT " RP : RECTANGLE FLEIH" 

PRINT " CF : CERCLE FLEIH" 

PRINT " TE : TRIANGLE" 

PRINT " CL : COULEURS FOHD-ECRITURE" 


PRIHT:PRINT'APPUYER SUR <ESPACES":GET #$ 
K=148:"=108 


114 : 


11 
124 
154 
155 
159 
165 
174 
184 
155 
266 
496 
294 
FRET 
266 
5rà 
284 
336 
Sa 
519 
624 
ES 
638 
64 
538 
FGa 
F5 
Fig 
F38 
Fag 
F6g 
F38 
846 
514 
52 
836 
Eli 
534 


HIRES 
PAFER? : IHKG :REM OBLIGATOIRE 
CE=1 :REM COULEUR ECRITURE & OL 1 
GÜSUE 1444 :REM CURSEUR 

CLS 

INPUT "COMMANDE CRF:CP. TR, CL. DRRE.CE ":CMS 

IF CH$="RE" THEN GOSUE Sa 

IF CH$="RF" THEN GOSUB 294 

IF CM$="CE" THEN GOSUE 614 

IF CH$="CP" THEN GOSUE 354% 

IF CM$="CL" THEH GÛSUE F6 

IF CM$="DR" THEN GOSUE 964 

IF CM$="TR" THEN GOSUE 1248 

GOTO 158 

RENM---— FECTANGLE 
Rene LG: lex: IST IF Cél-H60eS AND CY1-YB0=84 THEH 
CURSET #9,%@, 1 

DRAU %1-%5, 0, 1:DRAN @G,%1-7@, 1 

DRAM K@-#1,0,1:DRAU @. 6-1, 1 

FETUEH 

REM == =eeesne men mn CERCLE 

AG=# : Ge": GOSUE 1948 

RSSQRE CO DURE Qt 2 

IF XG-R<1 OR #G+R2224 OR YO-R<1 OR YA+R>198 THEN FETURH 
CURSET #9,YG,CE:CIRÇCLE RCE 

RETURH 

REM---- mm COULELF 

AGE: er 

IHPUT " COULEUR C@-7 OÙ 16-235 ";CL 

GÜSUE 1489 :#1=%: "12% 

IF Y1-Y8>@ THEH CURSET X@,@,1:FILL v1-Y8,1.CL 
CURSET *X9.Y@.@G:CURSET #1,71.,@ 

RETURH 

REM = mme FECTANGLE FLEIH 

As: YA: GOSUE 1484: #1=x:"1=" 

IF #1-#8=4 THEH RETURH 

FÜR Y=Ya TO “1 

:CURSET #9, %,CE:DRAN “1-*6,0,CE 

HEAT 

FETUEH ee 


.: 


AD 0 Qi D Eg A Qi di D Ur A Li QG 
QC 0 JS Pi CN Life ee Gi 
TOOLS SDL SRE 
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RE CERCLE PLEIN 
XG=X:VO=N : GOSUE 1006 
RESGIRC € KBK 224€ YD=Y JE) 
IF XG-R<1 OR HO4R>220 OR YO-RC1 OR YO+R>198 THEN RETURN 
CURSET #4, 79: 1 
FÜR RR=1 TO R:'CIRCLE RRCE:NEXT RR 
RETURN 
RE DROITE 
HG=K :Y9=Y:GOSUE 1008: 41=K:Y12Y:IF XG=X1 AND Yi=Y@ THEN RETURN 
CURSET Xà, 8, CE:DRAN X1-X@,Y1-Y@, CE 
RETURN 


REM = SPGM CURSEUR 
CLS:PRINT CE; "CURSEUR €FLECHES ET Y FOUR VALIDER) ": 


Te GIF POINTE 4, 1 THEH T=1 
C&=KEYS:IF Ce" THEN 1954 
CURSET #1 

CURSET #6 

GOTO 1945 


IF LL D CURSET : 


Ej 
TF C CTUEN IF KZ THEH #=x-2 
IF C=S THEN IF #€258 THEN K=x+z 
C=14 THEH IF *<195 THEH =+E 
C 


1 THEN IF Y3£ THEN =r-2 


IF 
IF 





Lots a 


IF C#="y" THEN CURSET &,%,1:T=1:RETURN 
IF C&="I" THEH CE=i-CE :REM INVERSION COULEUR ECRITURE 
IF Cé="S" THEN GOSUE 1264 


F IF C$="L" THEN GOSUE 127 


GOT 1444 
REM-- em mme mem me TRIANGLE -- 
Ge : Ge": GOSUE 1448: 41=x 1e" 
IF Y1-YH=4 THEN RETURN 
TES REGRETS TR 
FOR ea TO 1 
:CURSET KG. YCE:IF ABSCCT-YGX#PI<1 THEN 1246 
:DRAWU CG EP, G, CE 


ä NEXT 


RETURN 


PRINT "APPUYER SUR <RECORD PUIS <EHTER: ":GET #%$ 
CSAVE "DES", A4GSEG, E4S Ge 


5 RETURH 
à CLOAC "",A4GS66, E4364 


Se 


RETURH 


Rotation d'une figure 


15 EM EOTF ECTATION C'UHE FIGURE 


ef : 
25 REM Dessinée une figure dans la Position demandes 
38 : 
44 HP=F RENM nombre de Points 
56 DATA 164,164 
Se DATA 134,1fE 
54 DATA 134,61 
26 DATA 127,61 
DATA 127,75 
CATA 1H, 73 ROTATIO 
DATA 144, 10E 


FO IF Tel TO HP:READ KT YETGEHMERT T ROTATION = 18ÿ 





G HIRES : IHEE 
4 : 


EM ROTAT I ÜM 
RB=KC 1 3: VB TC 1 3 :REM centre de rotation 





INPUT "uel anale degree) MA 
15 fe RXS#PI 360 

af © =S INC A2: CeCOSe 3 

Eté ÎF D 61 ANG CL, 1 THEH Leaf 
43 IF S<:81 AD 5%-,81 THEH S=f 
 P=l TO CNP 















Li (BDÉRC TOYS 

FA LEP eve DC CURE ET, DE 

SaG HET F 

3 Cel:GOSUE 444 

INPUT "Effacement COM MES 

4 IF K$="0" THEH Cage GOSUE 4 
GOT 216 

REM == nu cou oo eue CESSIH 

CURSET alt 1 il C 

A FÜR Fzë TO WF 

DRAM HIS Fa-klcP- LLC FTP TC 

CURE ET #iiPiTiiFuC 

HEAT F 

+54 RETURM 
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Télécran haute résolution 
avec sauvegarde 


Ce programme permet de représenter des dessins composés de segments de 
droites. 


e Vous déplacez un curseur clignotant à l'aide des 4 flèches. 
Vous ''validez'' le point en appuyant sur 'V'. 


e En déplaçant le curseur et en appuyant sur "T'', vous tracez une droite 
entre le point précédent et le curseur. 


CM() x) YC) 


pour pour 
valider tracer 





COMMANDES 





e Les coordonnées des différents points sont stockées dans les tables XC() 
et YC(). 


e Vous avez la possibilité, en cours de dessin : d'annuler le dernier tracé en 
frappant "S'". 


e ''R'' efface et redessine. 


e La sauvegarde cassette n'a été prévue que pour ORIC ATMOS (avec STORE 
et RECALL). 


Pour ORIC 1, Cf la sauvegarde cassette du programme ‘chèque. 


e Nous avons réalisé un dessin d'écureuil. Le mode "A! affiche les valeurs des 
coordonnées des différents points. 


Nous avons reporté ces valeurs sur les DATAS d'un autre programme pour : 
afficher directement le dessin d'écureuil. 


e L'écureuil 


168 DATA 333,993 


116 
115 
126 
139 
146 
154 
155 
179 
184 
194 


Dessin de base 


DATA 
DATA 
DATA 
DATA 
DATA 
C'ATA 
DATA 
DATA 
DATA 
DATA 


DATA, 


CATA 
DATA 
CATA 
DATA 


Rotation de 180° 


peut être représenté directement avec le programme ci-dessous : 


199, 184, 
125,96, 
124,86, 
124,72, 
117,59; 
117,48, 
188,48, 
39,91: 
85,58, 
85,61: 
34, 62: 
88, 72 
87:92: 
G,, 
113,54, 


HIRES 
READ #A, YA: CURSET #4, 1 


FOR Izi TO 14% 
"READ &,Y:IF = 
‘IF Ke AND = 
DRAM KA, TA, 
:CURSET %,%,1 


KASK : YA Y 
206 MEXT I 


125,144, 
122,36, 
121,51: 
124,69, 
123,57; 
111,45; 
146, 44, 
33,53; 
35,98, 
89:63: 
EDP EN 
69, 61, 
34,93, 
115,32; 


115:54, 


= 
5 Fo 


ou 


Ge - DyriM 
BR in 5 Pi 


LRu] 


CG ID CG imfi De - 


GIFS Rime + 


Cm. - 


Lu = Bite ins BC 


mi 
Criif 
Brie JBL. 


CEE 


= 


33 THEN END 
THEH READ #A, TA: CURSET A, A 1: GÜÛTO 154 
1 
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PROGRAMME 

14 REM TELECRANH HAUTE RESOLUTIOH AVEC SAUVEGARDE 
15 : 

16 REM Permet de realiser Un dessin avec des seïments de droite 
7 FEM Le dernier trace Peut etre annule 

& REM La sauveSarde sur fichier est oFtionnelle 
13 : 

cé : 

£1 HIMENM #SFFF:TEXT:CLE 

22 FRINT "Fleches Pour deflacer" 

23 PRINT "V:Pour Premier Point T:autres Points" 

24 PRINT "H:sauveSarde ‘$:lecture" 

25 FRINT "£:suppression dernier Foint" 


26 FRINT "R:redessine tout" 





27 PRINT "L:lever “ EB:baisser" 

28 PRIHT:PRINT "APPUYER SUR <RETURHS ":CET #% 

34 HIRES:INKE 

35 DIM #6 18805, 6 1885), CHE 148 5 

36 DIM #16168),%10 1882 

46 A4=1008:"=1084 

45 F=û 

45 PRINT "Fleches Four deplacer" 

42 PRINT "Wipour Fremier Point: T:autres Points" 

SA PRINT "H:sauveSarde ‘$:lecture"; 

52 REM--=-—--————— 

F4 T=G:IF FOIHTEK, as-1 THEN Tel 

F5 : 

Er] C#=KEYS: IF Ces" THEH 136 ‘REM Attente frappe clavier 
939 CURSET :%:1:CURSET #4 :REM Curseur clignotant 


189 

118 
134 
14 
159 
169 
178 
184 
154 


GOTO sa 
IF Ts1 THEN CURSET 7,1 


CeASC( CS) 







IF C=8 THEN IF #1 THEN K=%-1 

IF C=3 THEN IF X<228 THEH K=x+1 

IF Cei& THEN IF se THEH =+1 

IF C=11 THEN IF 1 THEN =-1 

IF C&= y" THEH CURSET #21: 1: GOSUE SGA 


IF #A=X RHD YASY THEH 255 
IF Cg=uT" THEH CURSET KA, 4, DRAM #44, TA, 1-L:GÛSUE 566 


IF C$="L" THEH Lel:P=P+1:CMCPO=ASCC CS à :REM leve 
IF Cé="E" THEH LeG:P=F+1 : CMCPO=HSCE CS °REM baisse 
IF Cé="R" THEN HIRES:IHKÉ:GOSUE F4f ‘REM redessine 


244 IF Cé="#" THEH GOSUB 694 


24 
GS 
248 
tio 
49 


+ 

256 
436 
334 





IF Cé="$" THEN GÜSUE FA 


avr THEH IF F1 THEH HIRES:IHÉE KP eg Pie: CMC Fe 
UE F4 

CIF Cé$="F" THEH GOSUE 1988 :RENM rotation op 
"2 

IF Cé="A" THEH GOSUE 2446 :REM affichage x 
GOTO FE 

REM-- 

RE AE Papi CP CP ei: CMC Fe ASC Cé 2: RETURH —> 
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999 REM-----———— ee SAUVEGARDE €ORIC ATMOS) --- € OPTION: 
684 PRINT "APPUYER SUR <RECORD> PUIS <RETURN> " 

619 GET #5 

624 STÛRE x, "x" 

638 UAIT 144 

649 STORE Y,"r" 

en WAIT _1GG:STORE CM, "CM" 





RETURH 
REM == am ou un mas ae mme LECTURE TABLES CORIC ATMOSS — COFTIOH: 
PRINT "APPUYER SUR <PLAYT: 
A RECALL #,"" 
RECALL *, 
RECALL CM,"" 
GOSUE 744 :RETURM 
es eme einen mes Fedessine 


FOR Fi TO 168 

CIF CMéFoeg THEN F=F-1:RETURH 

IF CHRSCCMEF = "L" THEN Lei 

CIF CHRSCCOMEFOUEUE" THEN Le 

LHEKC PO T=YÉ PO 

F6S IF CHRSCCMCPOI="Y" THEN CURSET %,%.1 

Fér :IF CHRSCCME FOUT" THEN DEAN KA, "A, 1-L 











775 :IF K£>0 THEN : 
776 :IF Y<9@ THEN Ye“ 








F8g HEXT F 

a9Q RElzsesssseseesesesescess ROTATION  COPTIOND 

1868 INPUT "ANGLE " 

1602 BU CS DES ECS D :REM centre de rotation 


1920 A=AKEX#PI-3606 

1839 5=SINCA 5: C=COSC A2 

1832 IF C>-.@1 AND C<.8@1 THEN C=@ 

1934 IF S2-,@1 AND 5,41 THEN S=û 

1458 FOR I=1 TO F 

1468 IF CM I)e@ THEN 1268 

1965 :IF #C19=@ AND YCI)=@ THEN 116% 
DSC II KE: DEEE 








1x BCE XCHDUES 

YA TI = TEE DYÉC-DKES KI, E 
1198 NEXT I 

1116 E=@:GOSUE 1548 

1126 RETURH 





1545 FOR Isi TO F 

1518 :IF CMCI=ÿg THEN RETURN 
1528 :IF CHRSCCMC I )3="L" THEN L 
1538 :IF CHRSCCMCIIIE="E" THEN L 
1535 :IF E=1 THEN L=i-L 

1549 :K=x10 I: YeYlC I 

1559 :IF CHR#CCME I =" y" THEN CL 
1568 :IF CHRSCCME I 23="T" THEN Y— 

1565 CIF K1C12€>@ THEH CURSET MAC ID TIC LD 1 1 

15784 :IF 624 THEN #A=# 

1589 :IF Y<>@ THEH YAzT 

1594 NEXT I 

1608 RETURH 

1999 FEM=z==s==zsszsseseesesssss AFFICHAGE COURDONNEES 
2804 LPRINT:LPRINT "CMM, ns pu 

2814 FOR I=1 TO P 

SA2A :LPRINT EMI HO I, El 2 

2434 MEXT I 

2448 RETURN 
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Gestion de chèques 


Vous faites ‘défiler" sur l'écran votre relevé bancaire. Les flèches permet- 
tent de se positionner directement sur la zone à modifier. 


CREDIT DEBIT 


19-92-84  29ÿ 
11-92-84 
SOLDE : 

Date Ho cheque 
1 
DEELIT “ 
1N.HE, 4 RM CHEG 
19.n2,64 257447 
14.42.54 2374d4E1 
15.42.54, 


suivante 
Frecedente 





L1 

16 
1609 

Credit Cebit 
ä 

9864.93 . 
4599,r75 

. 35,5 

. EE 

. 346 

. 156 

. 1446 

. 156 
1839,17 , 

. SAGE 
16114.65 6941,3 
3213.55 


86 


PROGRAMME 


1E 
ES 


er 
Ce 


54 
+5 
11 
115 
125 
1359 
326 
ED 15) 
368 
+ 
405 
+15 
+ 
436 


REM CHEGUE GESTION LE CHEGQUES 


CLS: INPUT "ORIC 1 CON 'GRS:IF Régz'"O" THEN Alæl 
2e Aiz1 THEH GOSUE 29864  :REM ORICI 


HOLES : HLIGSSAE : CIM CHEGSCHLIG, HCOL 5 :REN SG CHEGUES 
CLS: INK: PAFERF 

INPUT "HOUVEAU FICHIER CH "GiRg:IF Ege'"0" THEN 34% 

GOSUE 1554 

FEMesememesenmssnmesmEss CATSTIE-MOCIFICATION 

Lis L'Pheld:LEsLI1+FC 


GOSUE GS É 


GOSUE ES 

IF Re5 THEH IFLie2PG+1 THEH LisLi-PG-1iLEsL ep): GOTO 368 

IF ed THEM IF LE<Z2GM-PG-1 THEN LieLI+PG41 Lie CPO4l : 
GOTO SEA 


444 : 


456 


mi ke Mi 


HAMMMmMTM 
HUE JR re 


7 
FE 
œ 


35 


CG ii — 
FA € ei. 
L 


Len 


Lee 


Fini MO E 


3 
SR 


DR) 


15 LD où 


Le) 





IF ES THEH GOSUE 1 

IF Ezëé THEH GÜSLUE 1 

GOTO 46 

EHC 

REMSSn ses smmmebnmnmnnrs EDTIOH LE CHE , 

CLS 

FLOT &, 

FLOT € 

FLOT 4 
1: 


PA: GOT BE 


EG," Page suivante 
nr Fañe Free des 
32,14 sauvegarde" PLOT SES, 4 imprimante" 
FLOT :CHESE 1 ot'Date Ho cheque Credit Lébit" 
CR: CBet: ASE 
FLOT 2,2, STEEL 0 
FÜR Lei TO Li-1 

IF Léli-1 THEM 615 

Se + MALE CHEGISE LL, EU eM ALI CHECGHE LL. 50 
HEAT L 
FPLOT 264,2, STRESS 

FOR LelLi TO LE 
FOR Cei TO NCOL 

IF CHECHEL, Cost THEN CHEGIE LR, Common 
5 PLOT Cet ES Let +, CHEGIRE LC 
HERT € 
CRSCR+MALE CHEGIE L 55 10 Be DEL VALE CHEGSC LL, dt 
HEZT L 
FPLOT 26,20, STRSC CR te PLOT 29, 24, STRS#c CG 
y PLOT 15,24, CHE Eole: MHSTRGE MEH+CRe DE 
EETURH 
RE == ouest mme GATE mme 
LieLi:Clel:EHheéLT-1 HNCOL +1 
ÉF=HLIGÆNCOL 
FE 
LISINTE CE 2H 1 té HCCL 141 
CLe2MeTMTE GC ZM I SHCUOL TÆEHCUOL 
IF LISLE THEH Red: RETURH 





set Cl] ESS el I-L1+4 
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— 

960 REM---- Saisie d'une ligne 
994 LIGH="" 

395 : 

997 LeLENCLIGS 5: PLOT K+L, 132 
998 : 

1964 CH=KEYS:IF Cé="" THEH 1444 
1914 C=ASCÉ CS 2: LeLENCLIGS 0 

1829 IF C=13 THEN 1115 

1934 IF C<:127 THEH 1445 


1444 IF LA THEH LIGS=LEFT#SELIGS, L-1 2: PLOT K4L 9 "0 :GOTO 937 
ELSE 937 

1845 : 

1948 IF C=8 THEN IF 2HN>1 THEH GOSUE 1194:2H=2H-1: GOT 11664 

1954 IF C=14 THEN GOSUE 1196: 2H=2H+NCOL:GOTO 1169 

1952 IF Cæ11 THEN IF ZN2NCOL THEN GOSUE 1198: ZH=2H-HCOL : GOTO 


1164 
1955 IF Cé="#" THEN RS: RETURH 
1868 IF CH="6" THEN R=SG:RETURH 
1476 IF C&="l" THEN Rsd:RETUREH 
1975 IF Cé="#$" THEN Rz6:RETURH 
16984 IF C<32 THEN FING:GOTO 1444 
1999 LIGH=LIGH+CS: PLOT 7, LIGS 
1144 GOTO 957 
1114 REM-- 
1115 PLOT #+L, sm" 
1128 IF LIG#<:"" THEN CHEGSELI, CLoeL ICS 
1125 FLOT #,%,CHEGS#E LI, CLS 
1139 : 
1149 Z2H=2N+1 
1145 IF EMLE#MCOL THEN K=d:RETUREH 
1154 : 
1168 : 
1184 GOTO 854 
1125 REM-- 
1196 IF LIG#<>"" THEM CHEGSE LI, CL EL ICS 
1135 PLOT %,%, CHEGISE LI, CL 3: RETURH 


1244 REM are SAUVEGARDE TAËLE CHEGS& 
1264 CLS :PLOT Z,22,"APPusez sur RECORD: Puis <RETUEHS " 
1274 GET #% 


1275 IF Ais1 THEH PÜOKHE #67, @:CALL 1424, CHEGS&:CGOTO 129% 
1289 STORE CHEGS, "CHEG" 

1299 PLOT 2,22,"C'est fini : 
1364 RETURN 

1429 NLIG=249 

15929 REMassezmsczmeusmamsmEmsEu LECTURE TABLE 

1594 PLOT 2,22, "Appuyez sur £RETURHS Puis €PLATE " 
1694 GET 4% 

1693 IF Al=i THEH POKE #67, 6: CALL 16H27, CHEGS: GOT 1624 
1619 RECALL CHEGS, "" 

1624 FRIHT "C'EST FIHI" 

1634 RETURN 

1694 REMssssesesesesesesss EDITION IMPRIMANTE 

1748 FOR Leg TO 24 

1716 :FÜR Cell TO 33 

1726 : HESCRNCC LOIF #CSE OR #22 THEH LPFRIHT " ";:GOTO 17238 
1725 :LPRINT CHARGE 4 9; 

1734 :HEXT C 

1748 :LPRIHT 

1759 HEXT L 

1755 LPRINT Messe en neeene e 1 
1769 RETURH 

1761 : 


nn 





12290 REM 
LEMENT 
20088 PRINT "ATTENDEZ" 

20005 A=#ES00:RERD DS 

206018 FOR I=1 TO LENCDS) STEP 2 

20024 +: VeYALC"#"4MIDSCDS, L,2)3:POKE A. V:A=fti:NEXT I 

20026 RERD DS:1F D$<>"2" THEN 24010 

20048 DOKE 4408, #0R4C:DOKE #402, #4CBS:DOKE #44, #BESS 

20045 RETURN ire 

20058 DATA 55555555233944363055200B690820D6P620ERE6RS2S20C6ES05332 
20052 DATA SESPOBAEGASESLACEESAS3320 
20060 DATA CéESCOEERSZOATES 24251 0082025085 2004E 8286 0A000E 10 1F017A 
20088 DATA 2 AAGGGE1 D 1F A1 7AAFG 


ROUTIHE SAUVEGARCE-LECTURE THËLE - CORICI SEU 


pa 


26474 DATA GGSSOGFSESCAFAUSE 1 C1 SGC6ESCSDAFS 
GS2ADÉRSZE 

LOGS DATA SÉESEASGESCSESCAFSEASGESSSE320 
ES34B4GE ZA 

24898 DATR GAESACESCACGEERSEHERE SZ 4216 
1C24FG04fAA 

29184 CATA ESAGBGCAFAGSEASGESS1 01 CEDOF SAGE 
C3641SA365 





29118 CATRÉSÉISSO] ASSGATERGESASAECASIESEZE 
1CEESGIE 

pe RP CMS TEE GI SASCESSSLESÉ I ASCF ESS 4 SE LAB AE 1CEZEFEDISSS 
26138 DATAS4ASSAZHESGACSECFAGSACEACF SCEZAGALAAZGESCASEZTESES2GESGAZ 
AS6CIEGRE 

29144 DATAZAGAESA4CEACFATAGEESTSSELATBET ANSE LAS EC I SEGENALAELAOGAFEZ 
ASSCIBEFÉ 


20150 DATACSS4DOGGASFFES2SDOOCCALSDAQF ALSOESLIOSEd SES ADSEONALIELZD 
GSSESASSE : 
26168 DATARSSFESSCESSCFCSA1 DAME 4AGF 21 FAOGDE 1 CECSCSEA4DAACASES CI CEF GG 
ECSBICE 18 

20174 DATAESCERACEECEESCF 2007 28602 004ESASZAd4CESC4SS 


AÉSC 
28158 CATA € 
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Lecture rapide (1) 


4äg REM LECTURE RAPIDE 

agi : 

42 REM D'APRES C.CHATAIH 

4ad : 

495 REM Une liste de mots defile 

46 REM Il faut rePerer si un mot donne est Present, 
7 REM On visualise les 2/3 de la liste seulement, 
421 : 

422 DIM M$c198) 

423 : 

425 DATA UH ARERE,UNE MAISON, UNE GREHOUILLE,UH TRACTEUR 
426 DATA UH TAPFISUNE BAGUE,UNE GIRAFE, PART 

427 DATA UHE FLEUR,UN VELO 

423 DATA *# 

438 FOR I=1 TO 194 

435 :READ M$CIO:IF M&cIi="*#" THEN HM=I-1:GOTO 44% 

436 MEXT I 

438 STCP 

439 : 

449 MCH$S=MS$C INTÉ RHD6 1 2#MM 41 2 :REM choix d'un mot au hasard 
445 W=58 

d4d4ë CLS 

458 PRINT :FRIHT"'OBSERYVE LA LISTE DES MOTS SUIVANTS: " 
451 PRINT:PFRINT 

452 HAIT ZG8 

464 PRINT'LE MOT:";CHRSC 27 55 "A"; MCHS$: 

461 PRINT "EST-IL DANS LA LISTETF" 

462 : 

476 PRINHT'AFFUIE SUR <ESPFACE: GUAHD TU ES FRET.":GET #$ 
489 CLS 

433 OK=@ 

S4@ FOR Lei TO HM#2-3 

516 :M$=h# Lo) 

515 :1F MCH$=MS$ THEN OK=1 

534 :PLOT 15.14, M$+" L 

544 :MHAIT H 

559 MNEXT L 

611 CLS 

613 PFRINT:PRINT 

Er PRINT'LE MOT:";MCH$;" EST -IL DANS LA LISTE? OUI ou NOH";:INPUT 
626 IF CR$="OUI" AND OK=12 OR CR$="NOH" AND OK=@2 THEW FRINT "C'EST 
BIEN" 

Es IF <R$="OUT" AND OK=@5 OR CR$="MON" AND OK=12 THEN PRINT "ERREU 
632 WHAIT 294 

635 GOTO 44% 


OBSERYE LA LISTE 
DES MOTS SUIVANTS: 


LE MOT:UNE FLEUR 


EST-IL DANS LA LISTE? 





Lecture rapide (2) 


REM LECTURE RAPIDE (D'APRES C.CHATAIN) 


REM Une liste de mots defile 
REM À chaque fois Qu'un certain mot apparait 
REM aPPuyer sur <ESPACE> 


CIM Méc 198) 

CATA Pile-bille-balle,:Plier,dedans 
DATA Poule.boule,Prendre,Pile,danser 
DATA velo.Poule,balle.Plier 

DATA # 


FOR I1=1i TO 156 


:READ MSI: IF M$CI)="*" THEN HM=l-1:GO0OTO 2614 
HEXT I 

REM---—-—— mm choix d'un mot au hasard 
MCHS=MSE INTÉ RNDE 1 2#HM +1 


IF MCH$S=AMS THEN 2618 

AHS=MCHS 

REM--- mm mm affichage des mots 
CLS 


PRINT:PRINHT"'DES MOTS VONT APPARAITRE AU MILIEU DE L'ECRAH" 
PRINT"APpuie sur <ESPACE>chaque fois Que tu vois le mot:";MCH$ 
PRIHT:PRINT "APPUIE SUR ESPACE GUAND TU EST PRET':GET x*$ 
OUB=S 

FOR L=1 TO HM 

: M$=Mg$c L à 

:PLOT 15,19, M$%+" : 

:HAIT 64 

:#S=KEYS: IF #$="" THEH 3935 

:1F M$=MCHS THEN FLOT 29,15,"O0OK":MAIT 166 

IF M$<>MCHS THEN PLOT 24,15, "NON":MAIT 198 

:PLOT 24,15," F 

:GOTO 3649 


‘IF MS=MCH$& THEN OUB=OUB+1 
:MEXT L 

PLOT 2.,24,STR$COUE +" QUBLICS 2" 
WAIT 249:FLOT 2,29," “ 
GOTO 2616 


DES MOTS VONT APFARAIÎTRE 
AU MILIEU DE L'ECRAN 


APpuie sur <ESPACE?> 


a chaque fois que 
tu vois le mot'velo 
APPUIE SUR <ESPACE > 
GQUAHD TU ES PRET 





3699 
3641 
3334 
3335 
3399 
44 
AGE 
4645 
4994 
4194 
+1ni 
412 
4143 
+14 
415 
+166 
4147 
4145 
4143 
411 
4111 
411 
4113 
4115 
4116 
411F 
4115 
4125 
4121 
dise 
4123 
4124 
4125 
+126 
4127 
+128 
+123 
4133 
did 
disä 
428 
+241 
4202 
4243 
4293 
4214 
4212 
4224 
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Lecture rapide 
avec analyse de texte 


REM LECTURE RAPIDE AVEC ANALYSE DCE TEXTE 
CIM Te SE 


CLS 
FRINT'TU VAS LIRE UN TEXTE, ATTENTION, IL VA CISFARAITRE, " 
PRIHT'APPUIE SUR <ESPACES: GUANC TU ES FRET,":GET #% 


DATA Qu'est-ce Que signifie aFPrivoiserT 
DATA dit le Petit Frince 

DATA-C'est une chose troP oubliee 

DATA dit le renard, 

CATA Ca signifie creer des liens, 
DATA-Creer des liens 

DATA -Bien sur dit le renard, 

CATA Tu n'es encore Pour moi 

DATA qu'un Petit 9arcon 

DATA tout semblable 4 

CATA cent mille Petits garcons, 

CATA Et je n'ai Pas besoin de toi 

DATA Et tu n'as Pas besoin 

DATA de moi non Plus, 

DATA Je mg suis Pour toi qu'un renard 
DATA semblable a Cent mille renarde, 
DATA Mais #&i tu m'aPPrivoises 

DATA Hous aurons besoin l'un de l'autre 
DATA Tu seras Pour moi unique au-monde, 
CAT Je serai Four toi unique au monde 
DATA 

HSCe 1 REM nombre de series de Questions, 
REM---———— SERIE 1 

CATA "LE RENARD AFFRIVOISE SERA T-IL: 
DATA "1: SEMELABLE Al AUTRES" 

DATA "£e UHIQUE AL MONDE" 

CATA "3 DIFFERENT DES AUTRES" 

DATA 2 :RENM numero bonne FrePongse 
REM—————— SERIEZ 


RENM--—-— 

FÜR Isi TO 164 

CREAD Te Tu IF TAge I I="E" THEN HLel-1: GOT 4£1 
MEAT I 

STOF 


a 
Eux] 


FOR G=1 TO N5G 
READ GC En, R1SCO , REe 12, REC OI), RPC) 
NEXT G a: 


464ÿ 


REM--—-—— EFFACEMENT PROGRESSIF 
CLS 

FOR L=1 TO NL:PLOT 2,L, TXS£LO:HEXT L 
AIT 14% 

FOR Lei TO HL 


‘FOR Ce2 TO LEHC TES L +1 

‘PLOT CL," " 

‘MAIT 14 

:MEXT C 

MEXT L 

PRINT :PEIHT:PRIHT'REFONDE À LA QUESTION SUIVANTE, " 
GITE RMDE 1 HEC +1 

PRINT Gé 

PRINT Re Gi: PRINT Ré GO: PRINT R3$c Go 

INPUT F 

IF R=RFCGD THEH  FRIMT'C'EST EXACT, ":EHD 
PRIHT:IMNPUT "VEUX TU RELIRE LE TEXTE CO-H3 "5RS 
IF R$="0" THEH 424 

GOTO 4536 


REPOHDS A LA QUESTION SUIVANTE, 
LE RENARD AFPRIVOISE SERA T-IL: 
1 SEMBLABLE AUX AUTRES 

2# UNIQUE AU MONDE 


3 DIFFERENT DES AUTRES 
> 


C'EST EXACT. 
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Dictée 
1@ REM DICTEE 
£8 : 
38 IHK4 
44 : 
59 DATA QU'EST-CE QUE SIG#IFIE AFFRIVOISER.H 
64 CATA DIT LE FX#TIT PRINCE.E 
79 DATA C'EST UNE CHOSE TROF QUELIEE.X 
84 DATA DXT LE KEHAKRC. I 
94 DATA CA SIXNIFIE CREER DES LIENS. ,G 
194 : 
189 DATA #,# 
199 REM-- ue one ane a ee me LECTURE DCATAS CAHNS TABLES TATS$6 1 
244 FÜR I=i TO 144 
219 :READ T##I CHI) 
220 :IF Ta$lo="#" THEM HLaï-1:G0TO £4f 
234 HEXT JT 
235 STOP 
299 REM--- oo cn on AFFICHAGE TEXTE 
244 CLS 
zd4i : 
245 PLOT 2,23, CHR#&C10+ "TU DOIS COMPLETER LES MOTS" 
246 PLOT %,ë4,CHRS&S 12+"O0LU IL MANQUE UHE LETTRE" 
254 : 
368 FOR Lei TO HL 
318 :PLOT £,L+1.TAT#iL 
329 NEXT L 
358 : 
366 FOR L=i TO NL 
374 :CCH$= "#4": LIGHESSTASEL 1: GOSUE 344% 
375 :1F F=f THEH 424 


384 :PLOT F+1,L+1,127 :REM CURSEUR 
398 :GET #%$ 
395 :IF ASC 4$I=S THEN EHD :REM CTEL CF 


4G@ :IF Af<2C&CLs: THEM PFIHG:GOTO 334 

416 :PLOT F+1,:L+1,#5% 

428 MEXT L 

436 END 

2994 REM----e RECHERCHE SOUS-CHAIHE 
3988 L1=LEHECCHS à 

3024 :FOR Pl TO LENSLIGNE#:-L1 

3030 :IF MID#(LIGHES,F,L129=CCH$ THEH 3164 
3448 MEXT F 
3958 F=g 
3148 RETUEH 


TU CIS COMFLETER LES MOTS 
OÙ IL MANQUE UNE LETTRE 


QU'EST-CE QUE SIGNIFIE AFFAI 
VOISER 


CIT LE PF TIT FRINCE 

C'EST UNE CHOSE TROF OLBLIEE 
CD£T LE REHARD 

CA SIXNIFIE CREER DES LIEHS, 





94 


Dee De 
LT 


Mise en ordre 
d'une phrase 


FEM MISE EM ORDRE COUHE PHRASE 
INK 
DATA GU'EST-CE QUE SIGMNIFIE APPRIVOISER 


DATA DIT LE FETIT FRINCE 
DATA C'EST UNE CHOSE TROF OUBLIÉE 


DATA DIT LE RENARD 
DATA CA SIGNIFIE CREER DES LIENS. 

DATA # 

REM == LECTURE DANS TX ) 
FOR I=1 TO 145 


:READ TAG T2 

‘IF TESCIa="E" THEM HLel-1:GOTO £4f 
MEXT I 

STOFP 

RENM---—- 

Le IMTE END 1 ÆHL +1 :REM CHOIX C'UME LIGNE 
IF LeflL THEH 254 

AL=L 

RE C'ECOUPAGE LIGME 
LIGS=T#SE LA 

HE re" 

FOR F=1 TO LEMELIGS# 
c#$=MID$eLIGS,P,102 

CIF A$ges" THEN = T4 


D IF 6e" "THEM HEN41 : MSC He sen 


MEXT P 
He 1 : MSC N = 
RE EEE AFFICHAGE 


FRIHT "TU DOIS PFLACER LES MOTS CANS L'ORDRE" :FRINT 


3 FOR Isi TO 18: TCIIS@G:MEAT I :REM MOTS DEJA UTILISEZ 


FOR Ie1 TO H 

ske IMTÉ RHDC 1 EM +1 
‘IF Tééuel THEN 3574 
PRINT M$é Ha: T Hi] 
MEXT I 


PRIHT 
IHPUT "TA FEFOHSE ":F$ 
IF E$£SLIGS THEH FING:GOTO 45% 





ä GOTO 254 TU DOIS PLACER LES MOTS 


@ END DAHS L'ORDRE 


CREER 
LIENS. 
DES 
CA 


SIGNIFIE 


TA REPOHSE % CA SIGHIFIE 
CREER LES LIENS. 
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Animaux 


19 REM ANIMAUX 
28 : 


30 : 
59 DATA LE CHIEH,ABOIE 
68 DATA LE CHAT, MIAULE 


F8 D 
88 D 
9@ D 
130 
269 
219 
£24 
239 
248 


ATA LE MOUTON, BELE 

ATA LE CHEVAL, HENNIT 

ATA LE CERF, ERAME 

DATA %X,*# 

REM==--ssesnessennns LECTURE DATAS DANS ANgé ET C&c à 
FOR I=1 TO 199 

:READ ANSC I, CSC ID:IF ANSCIOD="XK" THEN HM=I-1:COTO 25% 
MEXT I 

STOP 


245 : 


254 
2433 
266 
278 
273 
2894 


CLS 

PLOT 2,23,"TU DOIS COMPLETER (EX:LE CHIEN ABOIE 
FOR Lei TO Hn 

:PLOT 15,L,"......" 

HEXT L 


298 : 


399 
319 
326 
348 


FOR Li=1 TO NM 
:YLeL1:XL=15:GOSUE 4098 

‘IF LIG#<>C#CL1) THEN PING:GOTO 31 
NEXT Li 

END 

REM--——— INPUT AVEC GET 
LIGS="" 

LeLEN(LIGS):PLOT XL4L,YL, 127 


GET CH:C=ASCC CS) 

IF C=53 THEN END ‘REM CTRL CF 
IF C=13 THEN PLOT #XL+L,YL," ":RETURH 
IF Cé2127 THEN 4148 


IF L>8 THEN LIG#=LEFT#ELIGS, L-15:PLOT #L+L,YL," ":GOTO 4@z@ 
Fe L<1 THEN 4648 


IF C<3Z2 THEN FING:GOTO 4@4f 
LIGS=LIGS+CS 
PLOT XL,YL;:LIGS 
GOTO 4829 


TU DOIS COMPLETER 
CEX:LE CHIEN ABOIE 


LE CHAT MIAULE 
LE MOUTOH BELE . 
LE CHEVAL nn. 
LE CERF ..…. 
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Cahier du Basic 
sur ORIC 1 et ORIC ATMOS. 
Ce cahier vous initie au Basic 
en exploitant les possibilités graphiques 
de l’ORIC 1 et ORIC ATMOS. 
Les notions de base 
MODE DIRECT, VARIABLE, BOUCLES... 
vous sont présentées 
à l’aide des instructions basse et haute résolution. 
Ces notions sont illustrées par des programmes d'initiation. 
Quelques programmes d'éducation de jeux 
et de gestion complètent cet ouvrage 
(dictée, lecture rapide, 
dessin, tennis, chéquier, etc.). 
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